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ABSTRACT 


\ 

\ 


TEMPOA  is  a  COTiputer  interactive  version  of  the  orignial 
General  Electric  TEMPO  game,  and  is  vnritten  for  the  Apple  III 
microcomputer.  A  minimum  of  two  players  vie  for  a  strategic 
— ^win*-  through  judicious  budgetary  planning  in  the  develo^ent 
and  procurement  of  realistic  weapon  systems.  All  decisions 
are  subject  to  the  constraints  of  limited  budgets,  hardweure 
inventories,  research  and  development  time  lags  and  the  uncer¬ 
tainties  of  war  and  inflation.  A  third  party,  assuming  the 
role  of  gcune  umpire,  selects  all  simulation  parcuneters  and 
oversees  the  play  of  the  game. 
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I.  INTRODUCTION 


The  simulation  exercise  TEMPO  is  an  example  of  the  histor 
ical  interest  shown  towards  wargaming  by  the  U.S.  military. 
The  TEMPO  military  planning  game  was  conceived  and  designed 
by  the  Technical  Military  Planning  Organization  (TEMPO)  of 
General  Electric  Company  of  Santa  Barbara,  California,  in  the 
ecurly  sixties  as  a  strategic  budget  planning  wargame. 

While  originally  a  manually  played  simulation,  TEMPO  was 
designed  to  pit  the  budgetary  planning  euid  decision  making 
skills  of  opposing  teams  against  one  emother,  victory  being 
achieved  when  one  team  had  gained  a  clear  superiority  of 
capabilities  at  game  end.  Both  the  measures  of  superiority 
and  the  goal  of  the  exercise  are  two  aspects  of  the  game 
which  have  undergone  changes  during  the  ensuing  two  decades 
since  its  original  inception. 

Receiving  wide  dissemination  in  both  civili^m  emd  mili¬ 
tary  communities,  the  game  has  been  used  by  the  Defense 
Resources  Mcuiagement  Course  at  the  Naval  Postgraduate  School; 
the  U.S.  Army  Meuiagement  School  at  Ft.  Belvoir,  Virginia; 
the  Air  War  College,  Air  Command  and  Staff  College,  and  Squa¬ 
dron  Officers'  School  all  at  Meixwell  Air  Force  Base,  Al2Ut}ama. 
As  recently  as  1981  TEMPO  was  introduced  as  a  software  simu¬ 
lation  on  the  PDP  11/70  computer  in  the  Naval  Postgraduate 
School's  Command,  Control  emd  Communications  (C3)  Laboratory. 


TEMPOA,  the  subject  of  this  thesis,  is  an  adaptation  of 
a  version  of  TEMPO  to  the  Apple  III  microcomputer.  Considered 
by  many  to  be  'state-of-the-art*  at  this  date,  the  Apple  III 
with  its  12 8K  expandable  memory  lends  itself  to  large  scale 
programming  in  a  way  never  before  available  to  such  a  vast 
audience . 

As  a  software  device  for  the  Apple  III,  the  TEMPOA 
program  will  enable  users  to  simulate  the  decision  making 
process  and  resource  management  dilemmas  embodied  in  the 
weapons  development  and  procurement  processes.  While  an 
attempt  has  been  made  to  accurately  replicate  annual  budget 
overheads,  research  and  development  constraints,  time 
limitations  and  the  uncertainties  of  war  and  inflation,  the 
game  is  only  a  facsimile  and  falls  short  of  realism  on 
several  counts,  as  detailed  later.  However,  the  highlights 
of  the  original  game  and  the  major  influences  in  the 
budgeting  process  are  contained  in  TEMPOA,  and  the  adapta¬ 
tion  is  an  enhcuicement  in  many  ways  over  previous  versions. 


II .  GENERAL  DESCRIPTION 


TENPOA  requires  aL  a  minimiom  t\K>  players  euid  an  umpire. 
The  players  align  themselves  into  two  teams  and  alternate 
during  the  game  in  making  annual  procurement  cmd  investment 
decisions.  The  game  simulates  a  period  of  time  of  up  to 
twenty  years,  and  can  be  terminated  at  the  close  of  cuiy  year 

Player  decisions  revolve  about  the  development  and 
procurement  of  new  weapon  systems  (research  ^md  developinent) 
the  buildup  or  scrapping  of  systems  existing  in  cnirrent 
inventories  axid  the  investment  of  funds  into  intelligence 
gathering  activities.  Decisions  are  transformed  into 
expenditures,  which  in  turn  promote  a  player's  global  capa¬ 
bilities.  These  capabilities  are  directly  assessed  in 
terms  of  weapon  system  'utils',  a  single  measure  assigned 
each  unit  of  a  particular  system. 

Each,  player  may  be  faced  with  choices  affecting  up  to 
thirty  weapon  systems  during  the  play  of  the  game.  Systems 
are  of  two  basic  sorts,  offensive  or  defensive,  and  are 
further  subdivided  into  two  categories,  weapon  system  type 
A  Cstrategic)  or  weapon  system  type  B  (tactical) .  A  type  B 
defensive  weapon  system  may  only  be  used  to  defend  against 
a  type  B  offensive  weapon  system.  Type  A  systems  are 
similarly  constrained. 


At  the  conclusion  of  each  year,  after  both  players  have 
completed  and  entered  all  decisions  for  the  year,  TEMPOA 
computes  an  annual  winner  based  on  gross  offensive  weapon 
system  utility  points  accumulated  by  each  player  for  systems 
in  inventory,  discounted  by  the  appropriate  defensive  system 
utility  values  amassed  by  his  opponent.  If  a  large  discrep- 
ancy  exists  between  player  standings,  then  there  exists  a 
significant  possibility  of  war,  as  computed  by  an  algorithm 
detailed  later.  A  war  translates  to  a  healthy  budget  cut 
for  the  player  with  the  lesser  net  utility  score. 

The  role  of  the  umpire  is  twofold;  to  initialize  all 
game  parameters  at  the  outset,  and  to  monitor  the  annual 
play.  A  major  enhancement  in  the  current  version  of  TEMPOA 
is  the  degree  of  control  exercised  by  the  game  umpire  in 
selecting  game  parameters.  The  term  ’game  parameters' 
loosely  refers  to  individual  system  parameters  (twenty 
total)  of  up  to  thirty  game  weapon  systems,  the  expected 
values  for  annual  players'  operating  budgets,  and  the  means 
by  which  the  war  event  is  to  be  determined.  In  all  cases, 
default  values  are  available. 

All  computations,  which  in  most  previous  versions  were 
accomplished  with  tedium  and  exasperation  by  hand,  are 
carried  out  internally  by  TEMPOA.  Pertinent  results  are 
displayed  immediately  to  players  during  the  game,  and  each 
player  is  presented  annually  with  the  opportunity  for 
obtaining  a  printed  summary  of  his  cxirrent  inventory  and  his 


budget  status  (assuming  a  compatible  printer  is  configured 
to  the  Apple  III  RS232  port  or  that  an  Apple  Silentype 
printer  is  utilized) . 

At  the  conclusion  of  any  game  year  the  umpire  may  select 
to  halt  the  present  game  for  resumption  at  a  later  time. 

Upon  resumption,  TEMPOA  begins  with  the  game  year  subsequent 
to  the  termination  of  the  original  play,  and  proceeds  using 
all  gcuae  parameters  effective  during  the  last  active  play. 

In  this  manner,  play  may  be  periodically  postponed  to  allow 
for  in  depth  examination  of  the  game  situation,  a  more 
extensive  analysis  and  forecast  of  decision  consequences ,  or 
simply  to  enable  the  simulation  of  several  decades  of 
systems  development  in  the  game  while  allowing  the  players 
to  proceed  in  their  decisions  at  a  more  leisurely  pace. 


III.  THE  PLAY 


The  following  sections  detail  step-by-step  each  facet 
of  the  game  play.  The  software  itself  has  been  designed 
so  as  to  minimize  the  amount  of  prepcuratory  work  necessary 
for  the  actual  play,  and  no  prior  information  on  the  part 
of  the  players,  beyond  knowledge  of  the  gaming  objective 
itself,  is  presumed  by  TEMPOA.  While  TEMPOA  was  written  to 
be  self-explanatory  and  user  friendly,  a  familiarity  with 
this  doctiment  will  enhance  a  player's  performance. 


A.  OBJECTIVE 


System  Points  Points  allotted 

Under  2000  Face  Value 

2000-2999  2000  90%  of  amount  over  2000 

3000-3999  2900  +  80%  of  amount  over  3000 

4000-4999  3700  +  70%  of  amount  over  4000 

5000-5999  4400  +  60%  of  aunount  over  5000 

6000-6999  5000  +  50%  of  amount  over  6000 

7000-7999  5500  +  40%  of  amount  over  7000 

8000-8999  5900  +  30%  of  amount  over  8000 

9000-9999  6200  +  20%  of  aunount  over  9000 

10000-10999  6400  +  10%  of  amount  over  10000 

Over  11000  6500  (maximum) 


Figure  3.1  Utility  Point  Discount  Rate 


Each  player  begins  TEMPOA  with  the  same  collection  of 
weapon  systems.  Each  system  can  be  one  of  four  distinct 
types;  offensive  type  A  COA) ,  defensive  type  A  (DA),  of fen 
sive  type  B  COB) ,  or  defensive  type  B  (DB) .  In  addition. 


when  the  program  initializes,  a  unique  utility  value  is 
assigned  to  units  of  each  weapon  system.  The  gross  util 
value  of  that  system  is  determined  as  the  product  of  the 
system  \init  util  value  and  the  number  of  units  of  that 
weapon  system  in  current  inventory.  This  product  is  then 
discounted  to  reflect  the  diminishing  marginal  returns 
associated  with  increasing  quantities  of  a  given  system. 

The  discount  rate  is  depicted  in  Figure  3.1.  Summing  the 
final  gross  figure  over  all  systems  of  that  type  COA,  for 
examplel  results  in  the  total  player  capability  figure  for 
that  weapon  system  type. 

If  system  type  A  is  translated  to  mean  a  'strategic* 
weapon  system,  and  type  B  a  'tactical*  system,  then  it 
follows  that  a  type  DA  system  would  only  be  used  to  counter 
the  opponent's  type  OA  weapon  system  threat.  To  carry  this 
notion  out  mathematically  and  arrive  at  a  single  net  utility 
score  for  a  player,  his  total  util  figures  for  his  offensive 
system  types  are  decremented  by  his  opponent's  corresponding 
defensive  util  figures.  When  the  defense  for  a  system  type 
exceeds  the  value  of  the  opponent's  offense  for  that  weapon 
system  collection,  then  the  net  offensive  value  of  the 
system  type  is  zero.  That  is,  no  credit  is  given  for 
exceeding  the  utility  figure  necessary  to  neutralize  an 
opponent's  offensive  capability.  Figure  3.2  is  an  example 
of  how  TEMPOA's  algorithm  is  carried  out  in  practice. 


Annually,  TEMPOA  determines  which  player  achieves  the 
greatest  net  utility  figure  cuid  declares  him  winner.  Ties 
are  called  when  opposing  net  utility  figures  are  equal. 

The  effects  of  a  player's  decisions  spill  over  from  one 
year  to  the  next,  and  the  inventories  of  a  given  year  may 
be  viewed  as  histories,  cumulative  figures  which  encapsule 
all  previous  game  decisions.  As  a  result,  the  annual  winner 
has  done  more  than  acquire  a  victory  during  that  cycle  of 
the  game  play,  aind  has  achieved  a  cumulative  superiority 
over  his  opponent.  The  winner  declared  at  year  end,  then, 
is  the  collective  winner  of  the  game  to  date  as  well. 

The  players'  goal  is  to  achieve  offensive  superiority 
while  thwcurting  his  opponent's  efforts  through  an  adequate 
defense.  This  goal  will  be  frustrated  by  budget  ceilings 
and  the  uncertaxxities  as  to  where  the  opponent  is  channeling 
his  resources. 

3.  STARTING 

The  following  subsections  deal  with  the  initial  setup  of 
TEMPOA;  progreun  activation,  preliminary  data  entry,  and  the 
role  of  the  umpire. 

1.  Prelimincuries 

The  TEMPOA  prograua  is  booted  (initialized)  by 
inserting  the  5  1/4"  floppy  'TEMPOA  DISK  1"  diskette  into 
the  Apple  Ill's  internal  disk  drive  and  turning  the  computer 
on.  The  boot  is  successful  when  the  program  logo  is  dis¬ 
played  on  the  monitor. 
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Following  the  displayed  instructions,  players  will 
be  queried  as  to  whether  the  current  game  is  a  resumption 
of  a  previous  play,  or  whether  it  is  to  be  a  fresh  game. 

The  intent  of  this  option  is  explained  later.  In  most  cases 
the  game  will  be  a  new  play. 

When  players  arrive  at  the  point  depicted  in  Figure 
3.3  they  are  asked  to  enter  their  respective  player /teeua 
names.  For  identification  purposes,  the  program  requires 
each  player/ team  to  use  a  distinct  title.  The  progrcun  will 
distinguish  between  upper  emd  lower  case  entries. 

Additionally,  TEMPOA  requires  of  each  player  a  code¬ 
word.  This  codeword  is  a  keyboard  entry  which  will  act  as 
identification  verification  annually,  prior  to  allowing 
access  to  that  portion  of  TEMPOA  reserved  for  recording 
players'  decisions  and  budget  information.  The  present 
insertion  is  the  only  instance  when  the  entered  codeword  is 
visible  (and  once  the  RETURN  key  is  depressed,  the  entered 
codeword  varnishes) .  Throughout  the  remainder  of  the  game, 
entered  codewords  do  not  show  up  on  the  monitor.  It  is 
strongly  suggested  therefore  that  chosen  codewords  be  brief, 
be  either  all  upper  case  letters  or  all  lower  case  letters, 
and  lend  themselves  to  easy  memorization.  There  is  no 
recovery  for  forgotten  codewords. 

Players  will  be  advised  to  insert  TEMPOA  DISK  2  into 
the  external  drive.  After  confirming  the  insertion  by 
pressing  RETURN,  a  delay  of  10-15  seconds  occurs  while  player 


Player  1  Player  2 


System 

Total 

System 

Total 

Type 

Utils 

Type 

Utils 

OA 

800 

OA 

1000 

OB 

1000 

OB 

900 

DA 

1200 

DA 

1000 

DB 

900 

DB 

800 

PLAYER 

1  NET  SCORE: 

Player  1  OA 

800 

Sys 

-  Player  2  DA 

-1000 

A 

s  Net  System  A 

=  -200 

(if  negative,  set 

to  0) 

(set  to 

Player  1  OB 

1000 

Sys 

-  Player  2  DB 

-  800 

B 

-  Net  System  3 

=  200 

(if  negative,  set 

to  0) 

NET  VALUE  »  SYS  A  +  SYS 

B  >  0  +  200  « 

200 

Figure  3.2  Player  1  Net  Utility  Computation 


Enter  the  name  of  Player  Number  1  (Then  press  RETURN) 
Enter  a  codeword  for  Player  1  (Then  press  RETURN) : 

Enter  the  name  of  Player  Number  2  (Then  press  RETURN) 
Enter  a  codeword  for  Player  2  (Then  press  RETURN) : 


ENSURE  TEMPO  DISK  #2  IS  LOADED  INTO  DRIVE  #2 
<Press  RETURN  to  Continue > 


Figure  3.3  Player  Data  Entry  Page 


information  is  recorded  and  pertinent  segments  of  the  main 
prograuD  are  loaded  into  computer  memory. 


2.  Umpire 


’  *************************** 

***  UMPIRE  INSTRUCTIONS  *** 

*************************** 

*  Printer  Status  * 

Enter  the  number  corresponding  to  printer  status: 

1.. .RS232  UNIT  attached  and  configured  to 

receive  data 

2.. . APPLE  SILENTYPE  UNIT  attached 

3.. . Printer  either  not  connected  or  not  of 

option  type 

Figure  3.4  Printer  Selection 

The  umpire  segment  and  the  main  code  file  has  been 
successfully  retrieved  from  DISK  2  and  loaded  into  main 
memory  when  the  display  depicted  in  Figure  3.4  appears  on 
the  monitor,  unless  the  play  is  a  continuation  of  a  previous 
gcune.  In  the  latter  case,  the  monitor  displays  a  codeword 
request  page  for  player  access  for  the  year  following  the 
point  the  play  was  previously  interrupted.  And  in  any  event, 
if  the  computer  fails  to  communicate  with  the  diskette  loaded 
in  the  external  drive,  the  cue  'FILE  TEMPOA:  TEMPOA.CODE 
NOT  FOUND'  will  appear  at  the  top  of  the  monitor,  and  drive 
activity  will  halt.  The  players  should  re- insert  TEMPOA 
DISK  2  into  the  external  drive  and  reinitialize  the  Apple  III 


Following  the  successful  code  file  loading,  the 
umpire  is  requested  to  indicate  what  type  of  printer  is 
connected  to  the  i^ple  III.  Both  a  printed  forecast  and 
em  exhaustive  eumual  summary  of  each  player's  game  status 
(detailed  in  later  sections)  are  made  avail^d}le  at  the 
termination  at  the  end  of  a  player's  decision  cycle. 

Neither  summary  nor  forecast  will  be  offered  unless  the 
umpire  has  indicated  the  presence  of  a  compatible  printer. 
Selection  of  the  SILENTYPE  option  will  assume  that  the 
printer  is  connected  to  the  i^ple  printer  port  A.  Selection 
of  the  RS232  option  assumes  the  printer  is  properly  config¬ 
ured  to  communicate  with  the  Apple. 

Having  indicated  the  printer  status,  the  umpire  is 
presented  with  the  display  depicted  in  Figure  3.5.  This 
menu  allows  the  umpire  access  to  all  weapon  systems  paraun- 
eters,  budget  forecasts,  ^md  a  section  designed  to  allow  him 
to  override  TEMPOA's  algorithmic  expectation  of  war.  In 

*  Systems  Review  * 

1. .  .Browse/Alter  default  weapon  system  budget 

parcuneters 

2.. . Add  new  systems 

3 . .  .Delete  a  system 

4. .  .Browse/Alter  annual  budgets  for  all  g^une  years 

5.. . Elect  to  control  the  annual  probability  of  war 

6 . .  .Obtain  printout  of  all  geune  systems  and  parameters 

7.. . Quit  umpire  section  and  begin  game  play 


Figure  3.5  Umpire  Menu 


addition,  the  umpire  may  elect  to  have  TEMPOA  produce  an 
initial  systems  printout,  if  a  printer  is  attached.  Such  a 
printout,  detailing  each  parameter  setting  of  all  game 
weapon  systems,  provides  the  umpire  with  ccxnplete  reference 
information  unavailable  to  the  individual  players.  The 
players  are  only  permitted  to  per\ise  those  systems  and  R  &  D 
candidates  which  either  are  available  in  the  current  year,  or 
were  available  to  them  in  some  previous  year.  Opportunity 
systems  which  are  not  yet  available  are  masked  from  the 
players  by  TEMPOA. 

A  final  umpire  option  is  to  forgo  any  changes  and  quit 
the  umpire  game  segment,  beginning  the  play  with  default  game 
parameters.  The  default  settings  are  discussed  individually 
in  the  following  sections. 

Once  the  umpire  quits  the  umpire  game  segment,  all 
budget  and  weapon  system  parameters  are  fed  identically  to 
both  players ,  so  that  both  begin  the  play  with  equal 
opportunities . 

a.  Weapon  Systems 

The  umpire  may  browse  or  alter  the  weapon  system 
parameters  through  appropriate  selections  from  the  umpire's 
main  menu  (Figure  3.5)  .  From  the  same  menu  he  may  opt  to 
delete  entire  systems  or  create  new  systems.  A  total  of  thir¬ 
teen  totally  new  weapon  systems  may  be  manufactured  by  the 
umpire,  and  caui  augment  the  seventeen  default  systems  resident 
in  TEMPOA.  Since  any  or  all  of  the  parameters  in  the  default 


SYSTEM  2 


Name . 0A2 


Type . Offensive  System  Weapon  Type  A 

First  year  R&D  can  steurt: . 1 

Yrs  R&O  completed  at  game  start: . 0 

First  R&O  year  cost: . $400 

Second  R&D  year  cost: . $900 

Third  R&D  year  cost: . $700 

Earliest  year  available  (after  R&D): . 4 

Units  in  inventory  (at  game  start): . 0 

Acquisition  cost  (per  uni^  . . $300 

Operating  cost  (per  unit): . $175 

Value  in  utils  (per  unit): . 30 

Maximum  annual  purchase  rate: . 15 

Enter  one  of  the  FOLLOWING  options: 

A... Delete  displayed  system  and  advance  page 

3... Advance  page  without  deleting  displayed 
system 

C. . .Quit  deleting 


Figure  3.6  Umpire  Systems  Browse 


systems  may  be  accessed  amd  altered  by  the  umpire,  the  total 
number  of  configurable  weapon  systems  for  game  play  is  thirty 

Figure  3.6  shows  the  display  that  the  umpire  is 
presented  with  when  the  Browse/Alter  option  is  used.  An 
explanation  of  each  system  parameter  follows. 

'System  Name*  is  any  alphanumeric  string  of  char» 
acters.  The  seventeen  default  systems  are  loaded  initially 
with  generic  names,  such  as  OAl,  DB2,  etc.,  but  may  be  umpire 
altered  to  read  HARPOON,  MXl,  etc.  to  enhemce  the  flavor  of 


the  game. 


'System  Type'  refers  to  which  of  the  four  cate¬ 


gories  the  displayed  weapon  system  belongs . 


The  next  five  progr£ua  lines  deal  with  research 
emd  development.  Normally,  all  systems  which  are  not  in 
inventory  must  be  acquired  through  em  R  &  D  process.  How¬ 
ever,  the  umpire  has  the  option  of  making  avail2d3le  systems 
not  requiring  R  &  D.  This  option  is  exercised  by  making  the 
appropriate  entries  in  Figure  3.6.  (If  the  umpire  elects  to 
use  the  default  systems,  only  four  will  appeatr  in  inventory 
at  game  start.) 

'First  Year  R  &  D  Can  Start'  refers  to  the  game 
year  in  which  the  opportunity  for  initiating  the  project  is 
first  available.  'Yrs  R  &  O  Completed  at  Game  Start'  allows 
the  umpire  to  begin  the  game  with  R  &  D  partially  completed 
on  selected  systems.  The  next  three  lines  indicate  the 
annual  expenses  of  conducting  R  &  D  on  a  system.  An  R  &  D 
project  may  last  from  one  to  three  years.  To  account  for 
inflation  cmd  possible  cost  overruns,  a  uniformly  distributed 
random  variable  is  drawn  from  the  discrete  set  (O,  50,  100, 
150,  200}.  The  'actual*  annual  expense  of  R  &  D  is  the  sum 
of  this  variable  and  the  umpire's  elected  R  &  D  expense  figxire 
This  result  will  be  made  known  to  the  players  as  the  game 
progresses . 

The  "Eeurliest  Year  Available  (After  R  &  D)  ' 
refers  to  the  first  year  in  which  the  player  may  add  the 
system  to  his  inventory.  Adding  the  number  of  required  years 
of  R  &  D  to  the  first  year  R  &  D  can  start  should  result  in 
the  first  year  the  system  becomes  availaOale.  TEMPOA  conducts 


this  simple  check  on  all  systems  created  or  altered,  and 
will  alert  the  umpire  of  the  discrepancy  when  an  attempt  is 
made  to  either  advance  the  page  in  the  'Browse/Alter'  option, 
or  quit  the  umpire  segment. 

'Units  in  Inventory'  is  applicable  only  to  those 
systems  in  inventory  at  game  start  and  not  requiring  R  &  D. 

'Acquisition  Cost'  is  the  purchase  price  per 
unit,  and  is  assessed  only  once  during  the  gcune  play  upon 
unit  procurement. 

'Operating  Cost'  is  the  annual  cost  of  maintaining 
euid  operating  a  unit  in  inventory.  This  is  an  annual  assess¬ 
ment.  Units  which  are  in  inventory  are  assumed  to  be  operated 
cuid  are  so  assessed. 

'Value  in  Utils'  is  simply  the  unit  util  value, 
and  when  multiplied  by  the  number  of  units  in  inventory, 
produces  the  gross  util  value  of  the  weapon  system. 

A  ceiling  exists  for  the  number  of  units  of  a 
specific  weapon  system  which  may  be  procured  during  any  given 
year.  This  is  referred  to  as  'Purchase  Rate'  and  is  the 
final  system  parameter  listed  in  Figure  3.6. 
b.  Budget 

Each  player  begins  his  year  with  the  same  budget 
figure  as  his  opponent.  This  amoxint  is  based  on  the  budget 
figures  elected  by  the  umpire.  Figure  3.7  depicts  the  page 
on  which  this  election  is  made,  and  is  accessed  through  the 
umpire's  main  menu.  The  values  presented  are  the  default 


BUDGET  IIJFORMATION 


YEAR 

AMOUNT  ($) 

YEAR 

AMOUNT 

1 

9300 

11 

9300 

2 

9600 

12 

9600 

3 

9400 

13 

9400 

4 

9200 

14 

9200 

5 

9100 

15 

9100 

6 

9100 

16 

9100 

7 

9100 

17 

9100 

8 

9100 

18 

9100 

9 

9100 

19 

9100 

10 

9100 

20 

9100 

< Enter  'C  to  make  a  change > 
<Enter  'Q*  to  quit> 


Figure  3.7  Umpire  Budget  Review 


budget  values,  and  the  years  shown  span  the  maximum  duration 
of  the  game,  twenty  years.  (The  umpire  is  queried  annually 
whether  or  not  to  conclude  the  game.) 

TEMPOA  deviates  from  the  umpire  elected  budget 
figure  in  the  following  manner:  In  an  attempt  to  simulate 
effects  of  inflation,  budget  cuts  and  budget  increases,  a 
uniformly  distributed  random  variable  is  drawn  annually  from 
the  interval  [-1000,  500].  The  actual  budget  figure 

presented  to  and  utilized  by  the  players  is  the  umpire- 
elected  value  (Figure  3.7)  summed  with  the  random  drawn 
variable.  (Budget  surpluses  are  not  carried  over  into  the 
following  year.)  This  final  figure,  discounted  by  penalties 
accrued  by  the  player,  is  displayed  in  several  locations 
to  each  player  during  the  year  in  which  the  figure  is  appli- 
Ccdble.  (Penalties  are  discussed  later  in  the  Penalties 


section.)  In  addition,  the  tunpire's  elected  figure  for  the 
following  year  is  displayed  to  the  players  in  the  annual 
Budgetary /Systems  Purchase  Status  tableau,  explained  later. 

c.  Probability  of  War 

At  the  end  of  each  year,  after  both  players  have 
completed  their  decision  cycles,  TEMPOA  computes  the  annual 
probability  of  war.  First  the  program  determines  the  player 
with  the  larger  net  utility  capability  (as  described  in  the 
Objective  section)  auid  declcures  him  game  winner  for  the  year. 
It  then  algorithmically  confutes  the  ratio  of  the  smaller 
net  utility  figure  over  the  larger,  and  subtracts  the  results 
from  unity.  The  final  figure  is  the  TEMPOA  annual  probedjility 
of  war.  Note  that  the  larger  the  disparity  between  player 
capadsility,  the  greater  the  resulting  probability  of  war. 

PROBABILITY  OF  WAR  COMPUTATION  OPTION 

The  annual  possibility  of  a  war  is  determined 
probabilistically  by  a  random  draw  whose  threshold 
value  is  based  on  the  magnitude  of  disparity  between 
players'  total  adjusted  utility  figures. 

The  umpire  may  elect  to  override  the  above 
computation  method  emd  be  queried  annually  as  to 
whether  the  war  event  is  to  tedce  place. 

OVERRIDE  (Y  or  N) 

Figure  3.8  Umpire's  Probediility  of  War  Option 

The  umpire  may  elect,  through  an  option  available 
in  his  main  menu  (auid  depicted  in  Figure  3.8),  to  let  TEMPOA 
generate  a  uniformly  distributed  random  variable  (between  0 


and  1)  to  determine  whether  the  war  event  occurs.  Or  he 
may  elect,  through  the  same  option,  to  have  TEMPOA  generate 
and  display  the  computed  probability  of  war,  and  query  the 
umpire  annually  to  determine  whether  the  event  should  take 
place.  This  override  capability  defaults  to  'off,  and 
TE?4P0A  will,  unless  otherwise  directed,  generate  the  war 
event  independently  by  the  algorithm  detailed  above. 

Once  the  war  event  occurs,  the  player  with  the  larger  net 
utility  figure  is  declared  the  winner. 

C.  ANNUAL  PLANNING 

The  following  sections  treat  what  has  been  termed  the 
player  'decision  cycle',  which  begins  with  the  player  code¬ 
word  entry.  The  decision  cycle  concludes  when  a  player 
elects  the  'Quit'  option  from  his  main  menu  (Figure  3.9). 

1.  Annual  Forecast 

Following  the  entry  of  a  player's  codeword,  he  is 
provided  the  opportunity  of  obtaining  a  printout  (if  the 
umpire  has  previously  indicated  a  printer  is  attached) 
detailing  the  imminent  year's  weapon  systems  and  budget 
status.  Such  a  printout  would  be  useful  if  the  player  were 
acting  as  terminal  operator  for  a  team  of  game  pcurticipants 

The  forecast  has  eight  segments.  The  contents  of 
each  segment  are  only  briefly  described  below.  A  more 
detailed  discussion  is  provided  later  in  this  section. 

The  first  segment  is  a  list  of  all  weapon  systems 
currently  in  inventory.  The  second  is  a  similar  listing  of 


26 


all  systems  available  for  purchase  but  currently  not  in 
inventory.  CXunulative  utility  figures  for  each  of  the  four 
main  systems  types  are  contained  in  segment  three.  New  R  &  0 
opportunities,  continuing  R  &  D  opportunities,  and  shelved 
R  &  D  opportunities  make  up  the  next  three  segments.  Segment 
seven  displays  the  information  gathered  as  a  result  of  the 
previous  year's  intelligence  expenditures.  The  final  segment 
provides  the  working  budget  for  the  current  year. 

2 .  Main  Menu 

All  expenditures  made  by  a  player  are  made  through 
the  main  menu.  This  menu  supplies  a  common  return  point 
following  any  procurement  or  investment  decision,  and  offers 
the  sole  cycle  escape  avenue  through  its  'quit'  option. 

MAIN  MENU 

1.. . 5TATUS  OF  FORCES  CURRENTLY  IN  INVENTORY 

2.. . 5TATUS  OF  FORCES  AVAILABLE  BUT  NOT  IN  INVENTORY 

3.. . CURRENT  RESEARCH  AND  DEVELOPMENT  CANDIDATES 

4 . .  . 1NTELLIGENCE/ COUNTERINTELLIGENCE  INFORMATION 

5.. . CURRENT  BUDGETARY/SYSTEMS  PURCHASE  STATUS 

6.. . QUIT  (MAKE  NO  FURTHER  BUDGET  DECISIONS  THIS  YEAR) 

Enter  the  desired  option  number: 

Figure  3.9  Players  Main  Game  Menu 

The  first  four  options  listed  channel  the  player  to 
those  areas  where  decisions  are  made  affecting  his  current 
budget.  The  fifth  option  allows  the  player  to  view  a  summary 
of  his  budget  status,  reflecting  the  immediate  impact  of  all 
procurement  and  expenditure  decisions.  The  final  option  listed 
signals  the  completion  of  the  decision  cycle. 


.  Forces  Currently  in  invento 


EL 

Figure  3.10  depicts  the  display  when  the  first  option 
in  the  main  menu  is  selected.  Those  systems  with  positive 
inventories  are  listed.  Additionally,  the  following  parameters 
are  displayed;  system  name,  system  type,  inventory  quantity, 
unit  acquisition  and  operating  costs,  utils  per  unit,  annual 
purchase  limit,  cuid  the  total  system  utility  value  and  oper¬ 
ating  costs. 


PQRCaS  CURRENTLY  IN  mENTCRY 


SYSTENITYPE) 

INVENTCPY 

coir 

OP 

COST 

UTILS 

PlJRCH 

lNTt 

TC’^AL 

3PCCST  UTILS 

QAKCA) 

20 

S3Q 

siao 

SO 

25 

$2000  1200 

5a3(0A) 

30 

SIS 

t60 

,0 

40 

$1900  12C0 
$2400  1600 

aA4<0A) 

20 

S40 

$120 

SO 

10 

0621 cei 

5 

SIS 

$30 

20 

45 

S15C  100 

YOU  CURR 

ENTLY  HAVE 

S1900 

LEFT 

TO  SPEND  1 

POR  THE 

FISCAL  T5»R. 

< PRESS 

P  TO  PURCHASE,  S 

TO  SCRAP  UN  ITS 

CP  RET 

URN  TO  EYIT> 

Figure  3.10  Systems  Currently  in  Inventory  Tableau 

The  player  is  given  three  options  (from  Figure  3.10) : 
purchase  new  units;  scrap  existing  units;  or  quit  and  return 
to  the  main  menu.  If  the  player  elects  to  either  purchase  or 


scrap  vinits,  he  is  requested  to  specify  which  of  the  systems 
from  the  displayed  listing  he  wishes  to  expcuid  upon  (or  trim) 
Once  the  player  has  responded,  the  listing  is  replaced  by  a 
System  Information  tableau  depicted  by  the  upper  portion  of 
Figure  3.11.  Following  TEMPOA's  prompting,  the  player  enters 
the  number  of  units  he  wishes  to  buy  or  scrap.  The  display 
of  Figure  3.11  is  now  completed,  and  an  Updated  System  Infor¬ 
mation  tableau  augments  the  previous  System  Information 
tableau.  All  acquisition  and  operating  costs,  as  well  as 
annual  budget  data,  are  immediately  updated  to  reflect  the 
player's  procurement  decision.  In  order  to  understand  the 
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SYSTElYfTYPS) 

INVENTORY 

AO 

COST 

OP 

COST 

utils 

PURCH 

LIMIT 

TCTAL 

OPCOST  UTILS 

OAKOAI 

20 

t30 

SlOO 

60 

25 

12CCC 

IZOO 

UPOATEO  SYSTEM 

SYSTEHdYPEI 

INPCRMATION 

INVENTORY 

AO 

COST 

OP 

COST 

UTTL  S 

PURCH 

LIMIT 

total 

OPCOST  utils 

OAKOAI 

30 

130 

IICO 

60 

25 

13000 

1300 

OO  YGU  KflNT  TO  "^AKS  ANOTHER  CHANGE? 
<ENTeR  Y  OR  M> 


Figure  3.11  Systems  Purchase  and  Update  Tableau 


updating  Impact  of  a  decision  to  purchase  or  scrap,  it  is 
necessary  to  take  a  closer  look  at  how  TEMPOA  performs  the 
arithmetic. 

Associated  with  each  system  are  two  special  variables 
one  called  the  system  inventory  and  the  other  called  the 
'threshold'  number.  The  system  inventory  always  reflects  the 
number  of  units  of  that  weapon  system  in  inventory  at  cuiy 
given  moment.  The  threshold  nvimber  is  simply  the  number  of 
units  in  inventory  with  which  the  player  began  the  year. 

The  second  variable  represents  those  iinits  for  which  an 
acquisition  expense  has  already  been  incurred.  While  the 
inventory  figure  may  fluctuate  throughout  the  decision 
cycle,  the  threshold  value  will  remain  fixed,  and  will  pro¬ 
vide  TEMPOA  the  necessary  flexibility  to  allow  the  player 
to  reverse  his  decision  with  impunity  throughout  the  cycle. 

When  a  player  makes  a  purchase,  his  inventory  is 
immediately  increased,  and  his  system  operating  cost  is 
simply  the  product  of  the  inventory  and  the  unit  operating 
cost  value.  When  a  player  scraps  units  of  a  system,  his 
inventory  and  system  operating  costs  are  immediately  decre¬ 
mented.  During  a  purchase,  however,  he  is  assessed  an  acqui¬ 
sition  cost  for  only  those  units  which  are  in  excess  of  his 
threshold  figure.  And  during  scrapping,  he  is  'rebated'  an 
amount  equivalent  to  the  acquisition  costs  only  for  those 
scrapped  systems  which  are  in  excess  of  the  threshold  figure. 


As  an  exeunple  of  the  numerical  role  played  by  the 
threshold  figure,  consider  the  following.  A  player's 
threshold  is  thirty  units  and  his  inventory  is  forty  units 
(a  point  in  the  cycle  when  the  player  has  already  purchased 
ten  units  since  the  cycle  begsm) .  He  decides  now  to  scrap 
fifteen  units.  His  updated  inventory  will  be  twenty-five 
units.  His  threshold  is  still  thirty  units.  His  updated 
operating  costs  reflect  his  current  inventory  of  twenty-five 
units.  His  budget  funds  remaining  has  increased  by  an 
amount  equal  to  the  acquisition  price  of  ten  units  (not 
fifteen) . 

TEMPOA  will  provide  the  alert  depicted  in  Figure 
3.12  if  the  player  attempts  to  spend  more  than  he  has  avail- 
^Uble.  The  alert  acts  merely  as  a  warning,  and  will  not 
prevent  the  determined  player  from  overspending  his  budget. 
If  the  player  continues,  and  amasses  a  deficit,  an  amount 
equal  to  twice  the  deficit  figure  is  automatically  deducted 
at  the  end  of  the  decision  cycle  from  the  subsequent  year's 
budget. 

During  any  portion  of  the  decision  cycle,  an  attempt 
to  procure  more  units  than  the  purchase  rate  allows  will 
orompt  an  additional  warning.  TEMPOA  then  provides  the 
player  with  the  maximum  number  available  for  purchase,  and 
will  query  the  player  as  to  his  intentions . 


WARNING 


You  have  not  enough  fxinds  remaining  in  the  year  to 
make  the  desired  acquisition 

Budget . . . . . $9400 

Amount  spent  previously  for  acquisitions. 

Amount  spent  for  intelligence . 

Amount  spent  for  R  and  D . 

Amount  to  operate  all  current  inventories 

Amount  remaining . 

Acquisition  and  operating  costs 

of  system  qu5uitity  selected . 

Deficit . $160 

If  you  continue  with  this  purchase  and  do  not  scrap 
any  other  systems  (to  lower  your  operating  costs) 
you  will  have  am  annual  deficit.  Twice  this  aunount 
will  then  be  deducted  from  next  year's  budget. 

Do  you  wish  to  continue  with  this  acquisition? 

<Y  or  N> 


$0 

$100 

$400 

$7200 

$1700 

$1860 


Figure  3.12  Budget  Overrun  Warning  Message 

4.  Forces  Availadale  But  Not  in  Inventory 

All  display  formats  and  purchase  procedures  in  this 
section  are  identical  with  the  previous  section.  Systems 
itemized  in  the  manner  depicted  by  Figure  3.10  are  those 
whose  inventories  are  zero.  Increasing  the  inventory  of  any 
system  will  immediately  cause  the  system  to  be  transferred 
from  the  'Not  in  Inventory'  category  to  the  'Forces  Currently 
in  Inventory'  category.  Subsequent  perusal  of  this  system 
requires  a  return  to  the  main  menu,  and  selection  of  the 
'Forces  Currently  in  Inventory'  option. 

In  the  event  the  forces  listing  is  greater  them  four 
systems  in  length,  TEMPOA  provides  for  a  series  of  pages  to 


be  created,  each  of  which  expresses  system  information  in 
the  standard  format.  The  paging  option  is  implemented 
automatically  when  the  need  arises,  and  each  page  provides 
the  player  with  the  purchase  option,  emd  the  advance  page 
and  quit  options .  This  paging  procedure  is  also  implemented 
in  the  'Forces  Currently  in  Inventory'  segment. 

5.  Research  and  Development  Candidates 


RESEARCH  AND  DEVELOPMENT  PROJECT  STATUS 

A.  . .NEW  OPPORTUNITIES 

B .  . . CONTINUING  OPPORTUNITIES 

C.  . .SHELVED  OPPORTUNITIES 
Q. . .QUIT 


Figure  3.13  Research  amd  Development  Menu 


All  systems  about  which  players  make  decisions  can  be 
categorized  into  three  mutually  exclusive  classes;  those 
systems  in  inventory,  those  systems  available  but  not  in 
inventory,  and  those  systems  in  some  stage  of  research  and 
development.  This  latter  class  of  systems  may  be  browsed  euid 
mamipulated  through  the  R  &  D  in  the  players'  main  menu. 

Once  selected,  an  R  &  D  menu,  as  depicted  in  Figure  3.13, 
appears  on  the  monitor. 

There  are  three  possible  stages  in  the  R  &  D  process . 
First  is  the  New  Opportunity  stage.  All  new  R  &  D  opportuni¬ 
ties  make  their  initial  appearance  xinder  this  heading,  and  may 
be  viewed  by  selecting  the  first  of  the  options  depicted  in 
Figure  3.13.  The  selection  causes  the  display  to  be  replaced 
by  the  tableau  depicted  in  Figure  3.14. 
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•  NOTE:  all  new  RCO  PROJECTS  WILL  BE  « 
«  SHELVED  AT  YEAPENO  UNLESS  YOU  • 

•  NOW  CESfCNATE  • 


YOU  HAVE  Sl^OC  PENA  IN (N6 
ENTER  THE  NAHE  CF  THE  SYSTEM 
<TYPE  ‘QUIT*  ' 


IN  THIS  YEAR'S  BUDGET. 

WHOSE  RtC  YOU  WISH  TD  BEGIN: 
TO  aLIT> 


Figure  3.14  New  R&D  Opportunities  Tcdsleau 

The  information  displayed  in  Figure  3.14  is  similar 
to  that  displayed  in  the  purchase  tcdsleaus  with  minor  excep¬ 
tions.  'Yrs  R&D  Completed*  is  self-explanatory,  and  will 
have  a  value  of  zero  for  all  new  opportunities.  'Total  Yrs 
Req'd'  refers  to  the  number  of  years  of  R  &  D  required  to  make 
the  system  available  for  purchase.  This  figure,  when  compared 
to  the  'Yrs  Completed*  value,  gives  a  progress  report  on  the 
system* s  R  &  0  status.  The  meucimum  number  of  required  R&D 
years  for  any  TEMPOA  weapon  system  is  three.  The  next  several 
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entries  in  the  tableau  reflect  the  expected  cost  of  pursuing 
R  &  D  on  the  described  system. 

When  the  player  elects  to  begin  or  continue  R  &  D  on 
a  specific  system  (the  option  depicted  at  the  bottom  of 
Figure  3.14) ,  the  incurred  expense  is  equal  to  the  figure 
indicated  under  the  appropriate  year  column.  This  cost  is 
immediately  deducted  from  the  annual  budget.  The  remaining 
year  cost  columns  in  the  R  &  D  menu  are  forecasts  only,  and 
the  figures  xnder  those  headings  may  vary  as  a  result  of  an 
inflation  simulation.  At  the  end  of  each  year,  a  uniformly 
distributed  remdom  variable  is  dratwn  from  the  discrete  set 
{0,  50,  100,  150,  200},  and  is  added  to  the  subsequent  year's 
expected  R  &  0  costs.  As  a  result,  the  expense  of  contin¬ 
uing  a  system's  development  mey  become  more  expensive  than 
«uiticipated,  and  players  may  decide  to  shelve  the  project 
temporarily. 

All  new  opport\inity  projects  cd>out  which  no  player 
decisions  are  made  will  be  put  automatically  into  the  shelved 
opportunity  class  by  TEMPOA  at  the  end  of  the  decision  cycle. 
TEMPOA  makes  no  automatic  budget  assessments  for  either  new 
or  shelved  R  &  0  opportunities. 

The  Continued  Opportunity  listing,  also  displayed 
through  the  R  &  0  menu,  itemizes  all  systems  funded  for  R  &  D. 
The  format  is  similar  to  that  depicted  in  Figure  3.14.  The 
'Yrs  R&D  Completed'  value,  however,  will  be  non-zero  in 
those  instances  where  R&D  was  previously  funded. 


The  current  budget  figure  always  reflects  the  expense 
of  pursuing  those  R  &  D  projects  itemized  under  'Continuing 
Opportunities'.  When  a  new  opportxinity  is  funded,  the 
system's  status  changes,  and  the  budget  is  immediately 
assessed  the  appropriate  year's  R  &  D  cost.  Similarly,  when 
a  previously  shelved  opportimity  is  continued,  its  status 
changes  and  the  assessment  is  again  performed  (and  a  possible 
penalty,  described  later,  is  charged) . 

From  the  Continuing  Opportunities  display,  a  player 
may  elect  to  shelve  one  of  the  listed  systems.  Shelving  a 
system  will  cause  an  immediate  reinstatement  of  budget  funds 
to  occur,  the  amount  equivalent  to  the  cost  of  R  &  D  pursuit 
for  that  system.  At  cycle  end,  all  systems  in  the  Continuing 
Opportunities  status  are  assumed  to  remain  in  that  status  for 
the  beginning  of  the  subsequent  year. 

PENALTY'  PRICES  FOR  RESUMING  PREVIOUSLY  SHELVED 
R&D  PROJECTS 


System  (Type)  Penalty 

0A2(0A)  $300 

OB3(DB)  $250 

OB4 (OB)  $275 

OA3(OA)  $300 


You  have  $1600  remaining  in  this  year's  budget. 

Enter  the  name  of  any  system  whose  R&D  you  wish 

to  resume : 

<Type  'quit'  to  Quit> 

Figure  3.15  R&D  Penalty  Tableau 


Shelved  Opportunities,  the  last  stage  to  which  an 
R  &  D  project  may  belong,  is  the  set  of  all  systems  whose 
project  development  is  temporarily  held  in  abeyance.  The 
display  format  for  these  systems  is  similar  to  that  of  the 
other  two  stages.  Once  shelved,  projects  are  indefinitely 
held  in  this  status,  carried  over  from  one  year  to  the 
next  automatically  by  TEMPOA.  If  the  player  decides  to 
resiome  development,  he  is  assessed  the  appropriate  year's 
R  &  D  cost  (previously  explained) ,  in  addition  to  being 
assessed  a  resumption  penalty  cost.  This  cost  reflects  the 
expense  of  reactivating  old  facilities  emd  the  general 
regrouping  of  effort  needed  to  pursue  previously  discon¬ 
tinued  projects.  Specifically,  it  is  equal  to  $300,  or  the 
cost  of  the  most  recent  year  of  R  &  D  completed  on  the 
shelved  project,  whichever  is  less.  A  listing  of  penalties 
for  all  shelved  systems,  as  depicted  in  Figure  3.15,  is 
accessed  through  the  third  option  in  the  R  &  D  menu. 

A  budget  overrun  warning,  similar  to  the  purchase 
overrun  warning  described  earlier,  is  utilized  in  the  R  &  D 
segment,  and  cautions  the  player  when  excessive  R  &  D  invest 
ments  are  attempted. 

6 .  Intelligence/Counterintelligence  Information 

Figure  3.16  displays  the  intelligence/counter¬ 
intelligence  menu  available  to  the  player  through  his  main 
game  menu.  The  options  available  are  three;  receive  previ¬ 
ously  purchased  information,  fund  the  purchase  of  future 
information,  emd  cancel  the  funding  allotted  earlier  in  the 


SELECT  INTELLIGENCE  OPTION: 

A.  ...Receive  Previously  Purchased  Intelligence 

Information 

B.  . . .Purchase  Intelligence/Counterintelligence 

Information 

C.  . . .Cancel  All  Intelligence/Counterintelligence 

Requests  for  the  Current  Year 

Q. . . .Quit 

Figure  3.16  Intelligence/Counterintelligence  Menu 

Four  distinct  types  of  intelligence  information  may 
be  procured.  The  first  two  concern  enemy  offensive  cuid 
defensive  force  strengths,  respectively.  The  latter  two 
are  information  regarding  enemy  offensive  and  defensive  R  &  D 
projects. 

By  selecting  the  first  option  in  Figure  3.16,  the 
player  may  review  information  procured  by  intelligence 
funding  the  previous  year.  In  game  year  one,  as  in  any  year 
not  preceded  by  an  intelligence  procurement,  no  intelligence 
information  Ccui  be  reported,  and  an  appropriate  comment  to 
that  effect  will  be  indicated.  Figure  3.17  depicts  typical 
results  of  electing  the  first  option  from  the  Intelligence/ 
Counterintelligence  menu  (Figure  3.16) . 

The  first  two  TEMPOA  responses  in  Figure  3.17  will  be 
one  of  three  possibilities:  If  no  money  was  previously 
expended  for  the  intelligence  category  listed,  the  cue  'NO 
INFORMATION  PROCURED'  will  be  displayed.  If  the  intelligence 


CURRENT  INTELLIGENCE  REPORTS: 

ENEMY  OFFENSIVE  FORCES  INFORMATION: 

NO  INFORMATION  PROCURED 

ENEMY  DEFENSIVE  FORCES  INFORMATION: 

Total  enemy  defensive  utils  are  estimated 
to  be  between  2736  2md  3029 

ENEMY  OFFENSIVE  R&D  INFORMATION; 

CIA  unaUale  to  breach  enemy  counterintelligence 
barrier 

ENEMY  DEFENSIVE  R&D  INFORMATION: 

Reports  indicate  enemy  currently  funding  3 
defensive  R&D  projects 

Figure  3.17  Intelligence  Report 

category  was  funded,  but  the  enemy  provided  for  counter¬ 
intelligence  funding,  then  TEMPOA  will  respond  with  'CIA 
unable  to  breach  enemy  counterintelligence  barrier' .  If 
funding  was  provided  and  the  enemy  failed  to  provide  for 
counterintelligence,  then  TEMPOA  responds  with  upper  and 
lower  bounding  estimates  of  the  enemy's  total  utility  for 
the  appropriate  system  category.  Each  bound  is  arrived  at 
separately  through  distinct  xiniform  random  variable  draws 
from  the  interval  [0,  200].  These  two  variables  are  then 
added  and  subtracted,  respectively,  from  the  actual  total 
enemy  utility  figure  to  generate  the  displayed  upper  and 
lower  bounds . 

The  last  two  TEMPOA  responses  in  Figure  3.17  will 
have  the  sauae  first  two  possibilities  as  explained  previ¬ 
ously.  If  funding  was  provided  and  the  enemy  has 
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established  no  counterintelligence,  however,  TEMPOA  will 
respond  with  the  number  of  currently  funded  enemy  R  &  D 
projects  of  the  appropriate  system  category. 


PURCHASE  OPTIONS 

A. .. Current  Force  Strength  of  Eneiry  Offensive  Forces 

B. .. Current  Force  Strength  of  Enemy  Defensive  Forces 

C. .. Current  Offensive  Eneny  R&D  Projects 

D. .. Current  Defensive  Enemy  R&D  Projects 

E. .. Supply  Counterintelligence  Regarding  Own  Offensive 

Forces 

F. .. Supply  Counterintelligence  Regarding  Own  Defensive 

Forces 

G.  ..Supply  Counterintelligence  Regarding  Own  Offensive 

R&D 

H.  . .Supply  Counterintelligence  Regarding  Own  Defensive 

R&D 

Q. . .Quit 

Intelligence  Cost  per  Item  (A  thru  D) :  $100 

Covin terintelligence  Cost  per  item  (E  thru  H)  :  $200 

E1^TER  OPTION  LETTER; 


Figure  3.18  Intelligence/Counterintelligence  Purchase  Menu 


Option  two  from  the  R&D  menu  (Figure  3.16)  presents 
the  display  depicted  in  Figure  3.18,  and  allows  the  player 
to  procure  intelligence  information  or  to  provide  for  the 
supply  of  counterintelligence.  The  cost  of  intelligence  pro¬ 
curement  is  $100.  The  cost  of  providing  counterintelligence 
is  $200.  Counterintelligence  is  used  to  deny  the  enemy  infor¬ 
mation  whose  acquisition  he  is  funding.  All  procurements  are 
immediately  deducted  from  the  annual  budget  figure. 

The  final  option  allows  the  player  to  reverse  previous 
intelligence/ counterintelligence  decisions,  and  c2mcel  all 
such  funding  for  the  cycle. 


BUDGET  INFORMATION 


Year:  3  Total  annual  allowance:  $9300 

Amount  spent  in  acquisitions . $850 

Amount  spent  on  intelligence . $600 

Amount  spent  on  R&O . $2000 

Operating  costs  by  system  (those  in  inventory) : 

System  (Type)  Quantity  Total  Operating  Costs 
OAl(OA)  40  $1200 

DBl(OB)  100  $2000 

OB3(OB)  100  $1500 

Expected  defense  budget  for  next  year:  $8700 
Total  monies  remaining:  $1150 

<Presa  RETURN  to  Return  to  Main  Menu> 


Figure  3.19  Budget/Systems  Information 

A  current  summary,  depicted  in  Figure  3.19,  is  avail¬ 
able  to  the  player  at  any  time  during  his  decision  cycle 
through  an  option  in  his  main  menu.  The  summary  provides  a 
documentation  of  monies  allotted  during  the  current  cycle  for 
system  acquisitions,  intelligence  and  counterintelligence 
procurement,  and  R&O  funding.  Additionally,  the  summary 
breeUcs  down  all  systems  currently  in  inventory  by  naune  and 
system  type,  and  provides  individual  operating  costs.  The 
summary  concludes  with  the  amount  of  budget  funds  remaining, 
euid  cui  estimate  of  the  following  year's  budget  allocation. 


D.  ANNUAL  OUTPUT 

Immediately  following  the  conclusion  of  a  player's  decision 
cycle  he  is  given  the  option  (if  the  umpire  has  previously 


indicated  a  printer  has  been  attached)  of  obteu.ning  an  exhaus¬ 
tive  printed  summary  detailing  his  budget  decisions  and  weapon 
systems  status  for  the  year  just  completed.  Once  elected, 
the  printing  takes  two  to  three  minutes,  and  cannot  be 
interrupted. 

The  printout  is  divided  into  eight  segments.  The  first 
segment  itemizes  all  weapon  systems  currently  in  inventory, 
and  provides  a  breakdown  of  each  system  into  its  component 
parameters.  The  second  segment  provides  the  same  breakdown 
for  all  weapon  systems  availadsle  but  not  in  inventory.  Total 
cumulative  utility  figtires  for  each  of  the  four  main  system 
types  are  provided  by  segment  three.  The  next  segment  item¬ 
izes  all  continuing  R  &  D  projects,  providing  the  same  param¬ 
eter  details  as  contained  in  the  first  segment.  Segment  five 
treats  all  shelved  R  &  D  projects.  As  mentioned  earlier, 
this  category  includes  emy  unacted  upon  R  &  D  opportunities 
which  were  introduced  to  the  player  as  new  during  the  previous 
cycle.  The  sixth  segment  deals  with  a  budget  summary  and 
forecast  for  the  upcoming  year.  The  information  provided  is 
similar  to  that  availed)le  to  the  player  through  his  Budget/ 
System  Status  option  in  his  med.n  menu.  The  last  two  segments 
are  forecasts  of  systems  which  will  appear  as  opportunities 
at  the  start  of  the  following  decision  year.  Segment  seven 
forecasts  systems  which  the  umpire  has  made  available  in 
inventory  without  requiring  player  R  &  D  effort.  Segment  eight 
forecasts  new  R  &  D  projects  to  be  introduced  to  the  game  the 
following  year. 


E.  WINNING 


AS  A  RESULT  OF  A  TALLY  OF 
OPERATIONAL  FORCES  UTILITY 
POINTS.. . 

Chris 

...IS  DECLARED  WINNER 
FOR  GAME  YEAR  5. 

Figure  3.20  Winner  Declaration 

TEMPOA  declares  a  win  at  the  end  of  the  year  based  on  the 
player's  net  utility  figures.  The  exact  algorithm  has  been 
explained  in  the  Objective  section.  Figure  3.20  characterizes 
the  display  presented  by  TEMPOA  when  a  winner  is  declared. 

A  tie  is  called  in  the  event  the  players  have  identical  net 
utility  figures. 

F.  SAVING  THE  GAME 

At  the  end  of  each  player's  turn,  the  umpire  is  presented 
with  a  menu  selection  which  provides  him  the  option  of  termi¬ 
nating  the  game.  Specifically,  he  may  decide  to  end  the  game 
and  save  the  game  data,  or  he  may  continue  with  the  game.  If 
the  umpire  elects  to  conclude  the  game  and  preserve  the  game 
data,  then  TEMPOA  creates  a  data  file  on  the  external  diskette 
and  writes  all  systems  and  budget  information  for  each  player 
onto  the  file.  When  all  disk  drive  activity  has  stopped,  the 
play  is  concluded  and  the  i^ple  may  be  turned  off.  When  next 
the  TEMPOA  program  is  initialized,  the  umpire  should  indicate 
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that  the  geune  is  a  resumption  (see  Preliminaries  section  for 
appropriate  cue  information) .  In  the  event  the  game  is  again 
shelved,  the  old  data  file  on  the  external  diskette  is  merely 
updated.  The  play,  then,  may  be  interrupted  frequently  without 
loss  of  data  storage  space  due  to  a  need  to  save  the  most 
current  data  base.  In  addition,  several  separate  games  may 
be  played  in  the  interval  between  the  saving  of  a  game  and  its 
resumption,  as  long  as  no  attempt  is  made  to  save  one  of  the 
intervening  games . 

G.  PENALTIES 

Three  penalties  may  be  assessed  a  player  during  the  game. 
The  cost  of  losing  a  war  is  $1000,  and  is  immediately  deducted 
from  the  following  year's  budget.  A  second  penalty  is  the 
extra  expense  incurred  by  budget  overruns.  At  the  end  of  each 
year,  twice  the  amount  of  any  budget  overrun  is  deducted  from 
the  guilty  player's  upcoming  year's  budget.  Note  that  while 
a  player  is  penalized  for  a  budget  overrun,  he  is  not  given 
credit  for  budget  surpluses.  As  in  many  military  procurement 
scenarios,  what  isn't  used  is  lost.  The  final  way  a  player 
may  be  penalized  is  by  resuming  a  shelved  R  &  D  project.  If 
the  shelved  system  was  actively  pursued  at  some  earlier  time, 
then  an  added  expense  is  incurred  for  project  resumption. 

The  cost  is  equal  to  $300,  or  the  cost  of  the  most  recent  year 
of  R  &  D  completed  on  the  shelved  project,  whichever  is  less. 


It  bears  mention  that,  in  light  of  these  penalties,  a 
player's  actual  annual  budget  may  differ  drastically  from 
the  umpire's  elected  figure.  A  budget  overr;in  of  $500  coupled 
with  the  loss  of  a  war  will  cut  a  player's  expected  figure 
by  $2000.  In  addition,  the  random  draw  made  to  adjust  the 
budget  figure  for  inflation  may  slash  the  budget  by  another 
$1000.  The  resulting  budget  figure  may  surprise  the  unalerted 
player.  Both  players  are  strongly  advised  to  heed  TEMPOA- 
generated  budget  overrun  alerts,  and  be  wary  of  overextending 
operating  commitments  into  subsequent  years . 

H.  STRATEGY 

The  goal  of  the  geune  is  to  gain  the  upper  heuid  in  terms 
of  offensive  utility  points,  while  maintaining  enough  defen¬ 
sive  utility  points  to  offset  the  opponent's  offensive  capa¬ 
bility.  Players  will  not  achieve  this  end  simply  by  funneling 
monies  blindly  into  offensive  capabilities . 

If  the  game  duration  is  predetermined  and  announced  by 
the  umpire,  it  may  be  possible  to  successfully  model  TEMPOA 
as  a  complicated  dynamic  optimization  problem.  A  variadsle, 
undetermined  game  duration,  however,  frustrates  this  approach, 
and  the  player  is  resigned  to  work  out  his  'best'  strategy 
with  a  more  primitive  scheme. 

There  are  three  eureas  in  which  a  player  might  sink  funds; 
intelligence,  R  &  D,  and  system  procurement. 

The  gathering  of  intelligence  information  is  important 
for  providing  guidance  for  which  type  of  system  to  allot  R  &  D 


fimding.  And  the  cost  of  intelligence  procurement  is  rela¬ 
tively  inexpensive  when  compared  to  the  pursuit  of  an  R  &  D 
project  or  the  augmentation  of  an  existing  weapon  system. 
Intelligence  is  as  much  a  priority  to  a  player's  enemy  as 
it  is  to  the  player  himself,  hence  the  need  to  fund 
counterintelligence  activities.  A  judicious  use  of  counter¬ 
intelligence  will  effectively  mask  critical  information 
concerning  systems  where  a  player  is  parti culaurly  weak,  or 
where  a  player  is  expanding  in  preparation  for  the  great 
' coup ' . 

Most  of  the  default  R  &  D  projects  require  three  yecurs 
of  funding  before  they  are  available  for  purchase.  A  three 
year  delay  is  a  significamt  interval,  and  players  should  not 
delay  in  initiating  R  &  0  projects  which  will  bear  no  fruit 
for  several  decision  cycles.  It  is  easy  to  become  misled  by 
visions  of  a  late  return  for  early  efforts.  To  delay  the 
start  of  an  attractive  R  &  D  project  in  favor  of  a  lesser 
capedsle  but  more  immediate  investment  may  be  taking  risks 
that  the  player  can  ill  afford.  Frivolous  shelving  is 
I  costly.  The  penalty  price  associated  with  resuming  shelved 

R  &  D  projects  (in  addition  to  the  delay  in  getting  them  'on 
the  street')  may  exceed  the  expense  of  the  budget  overrun 
I  caused  by  continuing  the  project.  The  costs  and  penalties  for 

shelving  are  not  always  transparent,  and  the  decision  to 
shelve  warrants  careful  scrutiny. 
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Scrapping  systems  currently  in  inventory  should  be  treated 
in  the  same  way  as  shelving  R  &  D  projects.  For  each  unit 
scrapped  in  haste,  though  the  annual  operating  expense  has 
been  reduced,  the  equivalent  acquisition  cost  has  been  wasted. 
Scrapping  is  an  appropriate  measure  only  when  presented  with 
an  attractive,  cost-effective  weapon  system  whose  operation 
under  the  budget  constraint  necessitates  the  replacement  of 
less  efficient  systems.  Systems  of  the  same  type  may  be 
compared  in  a  cost-effectiveness  mini-study,  where  expendi¬ 
tures  are  amortized  over  s(xne  predetermined  interval..  A 
similar  approach  has  been  successfully  used  to  deal  with  R  &  D 
systems . 

The  brunt  of  the  en^hasis  in  recent  TEMPO  versions  has  been 
on  team  interaction  and  the  emalysis  accompanying  the  decision 
cycle.  In  the  current  versior,  the  duration  of  the  decision 
cycle  is  left  to  the  umpire.  However,  the  more  time  allowed 
the  players  during  their  cycles,  the  more  complex  and  competi¬ 
tive  their  analysis  is  expected  to  be. 


IV.  CONSTRAINTS  AND  LATITUDES 


This  chapter  divided  into  sections .  The  £irst  section 
treats  player  constraints  and  variable  limits ,  while  the  second 
deals  with  those  areas  of  TEMPOA  where  random  numbers  are 
generated  and  used. 

A.  CONSTRAINTS 

Geune  duration  is  limited  to  twenty  yeeurs.  This  constraint, 
elected  as  a  reasonable  upper  boxuid  for  the  gaune  duration,  was 
embedded  in  TEMPOA  to  allow  the  umpire  the  flexibility  to  alter 
a  set  of  default  budget  figures.  If  a  duration  greater  them 
twenty  years  is  desired,  it  is  only  necessary  to  alter  the 
length  and  initialize  the  values  of  the  integer-valued  budget 
vectors  REDBUDGET  and  BLUBUDGET,  declared  in  the  main  progreun. 

The  maximum  number  of  game  weapon  systems  is  thirty. 
Seventeen  are  default  systems,  and  may  be  altered  beyond 
recognition  by  the  umpire.  Another  thirteen  systems  may  be 
created  by  the  umpire  to  augment  the  default  systems.  Again, 
the  bound  at  thirty  was  elected  as  a  reasoneUsle  limit  to  the 
number  of  system  alternatives  a  player  would  be  able  to  deal 
with.  An  incremental  increase  in  the  number  of  systems  avail¬ 
able  increases  the  game  complexity  exponentially. 

All  arithmetic  operations  performed  by  TEMPOA  use 
integer-valued  variables.  And  in  the  main,  integer  varibles 
have  been  used  more  frequently  than  long  integers.  The 


probability  of  war  computation,  while  appearing  to  use  and 
display  real-valued  variables,  actually  uses  long  integers  and 
an  artificial  decimal  display.  As  a  result  of  the  prevalence 
of  integer  varied>les,  the  m2Lximum  value  TEMPOA  arithmetic  can 
be  expected  to  deal  with  is  32767.  This  is  a  constraint  of 
the  Apple  itself.  Since  the  greatest  expenditures  will  not 
often  exceed  the  annvial  budget,  care  need  only  be  taken  to 
ensxire  the  umpire  does  not  elect  to  use  budget  values  in 
excess  of  32767  (budget  default  values  are  approximately  9000) 
This  will  artificially  bound  expenditures.  And  observing  that 
unit  utility  values  are  roughly  comparcdsle  to  unit  operating 
costs,  bounding  the  annual  budget  figures  effectively  caps 
the  total  systems  utility  values  as  well.  Annual  expenditures 
and  gross  utility  values  are  the  largest  variables  dealt  with 
in  TEMPOA.  Ensuring  their  bounds  are  within  Apple  integer 
constraints  is  sufficient  to  safeguard  all  other  varied>les . 

Aside  from  the  mentioned  constraints  and  the  limitations 
of  the  display  presented  on  the  monitor,  TEMPOA  has  been 
constructed  to  be  flexible  and  forgiving.  Numerical  entries 
not  within  the  allowable  range  of  the  assignment  will  prompt 
a  TEMPOA  cue  highlighting  the  error  and  cautioning  the  player. 

B .  LATITUDES 

Random  numbers  are  drawn  and  used  in  four  instances  during 
the  game  play.  The  Apple  System  Library  unit  Applestuff  pro¬ 
vides  the  source  of  the  random  nvimbers.  All  begin  uniformly 


distributed  over  the  interval  [ 0,  l]  .  a  linear  transformation 
is  then  performed  on  each  draw  to  provide  the  appropriate 
variable  remge  required.  The  Randomize  procedure,  also  pro¬ 
vided  by  the  Applestuff  unit,  is  used  to  avoid  the  repetition 
of  a  draw  sequence  in  subsequent  games. 

Draws  are  made  in  the  following  circumstances;  to  provide 
upper  and  lower  bounds  to  the  enemy  utility  figure  reported  to 
the  player  as  the  result  of  an  unblocked  intelligence  request; 
to  determine  the  annual  effect  of  inflation  on  the  umpire- 
selected  budget  value;  to  determine  the  effect  of  inflation 
on  the  imminent  year's  R  &  D  cost  for  any  continuing  R  &  0 
opportunity;  to  determine,  if  unpire-elected,  whether  a  war 
event  is  to  tcdce  place.  A  more  precise  description  of  the 
algorithms  used  in  the  above  circumstances  is  available  in  the 
appropriate  sections. 


V.  RECOMMENDATIONS 


TEMPOA  is  constructed  to  mime  the  realities  of  the  defense 
procurement  and  development  process.  To  the  extent  in  which 
it  falls  short  of  this  goal,  room  for  program  enhancement 
exists . 

A  glaring  artificiality  is  the  encompassing  in  a  single 
value,  called  'util',  the  full  capability  and  military  signifi¬ 
cance  of  an  entire  weapon  system.  Certainly  this  streamlines 
TEMPOA.  And  it  frees  the  player  to  concentrate  his  efforts 
on  budget  allocation  rather  them  on  pure  systems  analysis 
concerns.  Nontheless,  injecting  a  more  realistic  systems 
assessment  would  enhance  TEMPOA  and  add  a  new  level  of  sophis¬ 
tication  to  the  play. 

An  area  not  directly  addressed  in  TEMPOA  is  the  cumbersome 
artificiality  of  the  decision  cycle  scheme.  Forcing  one  player 
to  'wait  his  turn'  while  the  other  proceeds  through  the  decision 
cycle  is  not  merely  unrealistic.  Boredom  is  fostered  in  the 
nonparticipating  player.  A  more  desirsUsle  scheme  would  be  a 
time-sharing  arrcmgement,  where  both  players  occupy  separate 
terminals,  linked  by  modem,  and  conduct  their  decision  cycles 
simultaneously.  Such  an  arrangement,  while  posing  no  great 
technical  difficulties,  requires  the  availability  of  multiple 
compatible  terminals.  In  addition,  the  need  would  arise  for 
both  players  to  complete  their  cycles  at  about  the  seune  time, 
to  enable  a  timely  transfer  of  player  status  information  from 


one  terminal  to  the  other  (in  order  to  provide  TEMPOA  the 
necessary  data  to  decide  and  declare  a  winner) . 

An  alternate  method  for  dealing  with  the  player  cycle  is 
to  have  duplicate  game  diskettes  given  to  the  players.  Each 
could  play  simultaneously  on  sepcurate  non-linked  terminals. 
Following  each  turn,  a  data  file  summarizing  a  player's 
decisions  would  be  created  on  each  game  diskette.  The  umpire 
would  then  halt  the  game  and  switch  the  players'  diskettes. 

Each  player  could  then  retrieve  the  opponent's  data  file  and 
determine  a  score.  Diskettes  would  then  be  retvirned  to  the 
respective  players  to  begin  another  game  cycle. 

I'Thile  this  second  method  allows  for  simultaneous  game 
play,  it  requires  the  additional  manipulation  of  game  diskettes 
Also,  the  umpire  would  be  required  to  monitor  the  cycle  dura¬ 
tion  and  ensure  the  simultaneous  termination  of  each  player's 
game  year. 

All  of  which,  highlights  the  desiredsility  of  an  internal 
clock  in  the  Apple  III.  In  the  current  TEMPOA  simulation,  an 
umpire  takes  the  place  of  a  clock,  and  may  estadslish  duration 
limits  for  player  decision  cycles.  A  clock  would  relieve  the 
responsibility  from  the  umpire,  and  would  also  provide  a  ready 
solution  to  the  problem  posed  by  the  need  for  simultaneous 
cycle  completion  when  using  two  linked  terminals. 

The  edsove  summarizes  the  more  glaring  shortcomings  of 
TEMPOA.  Other  such  areas  exist,  and  will  become  apparent 
whenever  the  player  finds  himself  muttering  in  a  frustrated 
tone  of  the  artificiality  of  a  TEMPOA-generated  situation. 


VI .  MECHANICS 


This  chapter  discusses  the  required  hardware  upon  which 
to  play  the  TEMPOA  program.  In  addition,  the  section  on  soft¬ 
ware  dwells  on  the  program  makeup,  TEMPOA  file  construction, 
and  procedure  segmentation. 

A.  HARDWARE 

The  progreun  TEt4P0A  reqviires  the  use  of  one  Apple  III  12 8K 
microcomputer,  a  120V/60Hz  power  source,  and  one  external  disk 
drive.  While  TEMPOA  consists  of  three  separate  5  1/4”  floppy 
diskettes,  the  code  required  for  riinning  the  program  is 
contained  only  on  the  first  two. 

The  use  of  a  printer  is  optional.  However,  in  order  to 
obtain  an  umpire's  complete  systems  summary,  an  annual  player's 
decision  summary,  or  an  annual  status  forecast,  a  properly 
configured  printer  is  essential.  When  attached,  a  compatible 
printer  is  linked  through  the  Apple  RS232  port.  If  an  Apple 
Silentype  printer  is  used,  it  must  be  attached  to  Printer 
port  A. 

3 .  SOFTtVARE 

TEMPOA,  as  mentioned  above,  is  contained  on  three  diskettes 
TEMPOA  DISK  1  and  TEMPOA  DISK  2  contain  the  program  code  files 
and  are  used  to  run  the  game.  TEMPOA  DISK  3  contains  all  pro¬ 
gram  text  files,  and  is  available  to  provide  the  user  with  the 
option  of  reconfiguring  or  editing  the  game. 


Specifically,  TEMPOA  DISK  1,  which  is  inserted  in  the 
internal  disk  drive  prior  to  turning  the  power  on,  contains 
the  Apple  system  software  necessary  to  boot  the  TSMPOA  pro¬ 
gram.  Additionally,  it  contains  a  data  file  in  which  player 
names  amd  codewords  will  reside.  Using  the  Apple  System 
Library  unit  Chains tuff,  the  booted  code  file  on  TEMPOA  DISK 
1  is  linked  to  the  main  program  on  TEMPOA  DISK  2,  which 
should  be  inserted  into  the  external  disk  drive.  Other  than 
the  initial  diskette  insertions,  no  further  file  or  diskette 
manipulations  are  required  of  the  player  during  the  remainder 
of  the  program. 

An  understemding  of  the  rationale  behind  the  TEMPOA  file 
configuration  is  necessary  if  the  user  emticipates  altering 
or  enhancing  the  program  text. 

File  arrangement  was  dictated  by  several  Apple  constaints 
First,  individual  procedure  size  limits  caused  simple  but 
lengthy  texts  to  proliferate  into  multiple  smaller  units. 
Hence  the  final  program  contains  an  inordinate  number  of 
nested  procedures.  \  second  consideration  in  program  design 
was  text  file  size.  In  order  to  amass  the  queuitity  of  text 
embodied  by  TEMPOA,  the  progreun  was  divided  into  seven  text 
file  'batches',  plus  the  main  driver  text  file.  All  files 
are  then  compiled  sequentially  using  the  .\pple  III  Peiscal 
compiler  'include'  option. 

A  constradnt  affecting  progreun  execution  was  the  limita¬ 
tion  on  the  quantity  of  code  that  could  be  loaded  at  one  time 


into  the  main  memory.  In  order  to  provide  adequate  space  for 
pertinent  sections  of  the  program,  large  blocks  of  text  were 
defined  as  'segmented'  procedures.  These  procedures,  compiled 
before  non-segmented  procedures,  are  not  automatically  loaded 
into  the  main  memory,  and  now  remain  resident  in  the  code 
files  until  called  by  TEMPOA. 

Sheer  size  of  the  TEMPOA  code  file  (160  diskette  blocks) , 
suggested  the  use  of  a  third  disk  drive  in  program  construction 
emd  compilation.  The  requirement  that  certain  system  software 
files  be  resident  in  certain  drives  made  TEMPOA  file  manip¬ 
ulation  during  construction  cimbersome.  While  users  are 
invited  to  modify  and  enhance  the  current  version  of  TEMPOA, 
the  use  of  a  third  drive  is  heartily  recommended  for  the  tasks 
of  editing  and  compilation. 
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t^rtJ»,^,^<arconf.  :  char? 

tr9dbud««%<tblubud«»t.  :  irr»iCl..2®3  ot'  irtt«d«rs 
t^lavtrs  :  arravtl..*! 

•ndi 


d*d  >  strin«i 
rs  :  s^tomsi 
Os  }  svatMSi 
SV«  !  SVfttVMi 
y*ar  :  integer > 

rsObfuOwrt*  biubi.nj9*t  s  srrw  C1..2«3  int<— rt 

:  arrtw  Cl.. 4]  ijf 
Kiaint'la*  :  boolaani 

bluiat't.  :  irTT.«««ri 
b«4»wr*t  :  intsssri 
risront*  Oisrsm  :  intewri 
rrasmsntt  OrOsrsrtt  t  intawrt 
s  intrwTi 

w*tr  I  Chari 
z  >  trxti 

roa«rob«r4a*rdb«boa«boo«b4a«bflb  :  intrwri 
ro»rd*rrbo»rrdd*fro*«''rd»frr<so»»'rrdd  s  iwadari 
bo*bo*brbo»brdd»fbo.fbd.fbr<io.»'br*ld  » 


wareont.  :  ch«ri 


<«lNa.UOE  NP2iMrCHt.t*xt.> 
C^INCLUOE  THESIS2:eOTCHlA.t«x%> 
<slNaUOE  TH€SlS2:8ATCHte.t«xt> 
UlNaUOE  NP2tBQTCH2.t«xt,> 
CSINCLUOE  rHESlS2teATCH20.t«<t> 
CSINCLUOE  THeSI32:aATCH2B.t«xt> 
CflNCLUOS  THESlS2t8ATCH3.t«rt.> 


PROCEDURE  HAINHENU  <;^<ir«on  :  «trin9>i 

CTh*  Min  mm.  Prewidts  a  central  call  in*  roint  fmn  xthich  all 
•MMnditup*  ctaKiaiona  ori9inata<  and  fnym  nthich  all  Mrtinant 
infoTMtion  obtain«d.> 
uar 

selection  :  chari  suitPla*  t  booleani 
beetn 

^ttfla*  i«  false; 
reneat 

clearscreeni 
nutit<33*U'HAm  MENU'); 

nutit< 1048#'!.. .STATUS  OR  FORCES  CURRENTLV  IN  INOEHTORV' )i 
nMtit<  10,8* '2... STATUS  OR  FORCES  AUA1UJ8LE  WT  NOT  IN  INUEHTORV' >» 
nutit<10«l0« ^3.. .CURRENT  RESEARCH  PNO  OB-CLOPHENT  CANDIDATES' )» 
nutit<  10.12«'4,..INTELLI0EHCE/COUNTWINTEU.I8ENCE  INFORMATION' >» 
nytit<  10#14,'5... CURRENT  SUOPE^ARV^SVSTeiS  P1.IRCHASB  STATUS' >1 
nutit<l0»lS#'8...QUIT  (MARE  NO  FI.IRTHER  BUOSET  DECISIONS  THIS  VEAR)'>* 
>«ritelniwriteln}«iriteln> 

uirite<  '  Enter  the  desired  mtion  nunber?  ' ); 

reacK  se  1  ect  i  on )  i 
case  selection  of 

'I'  j  anstatus<nerson); 

'2'  j  aMStatusi  nerson ); 

'3'  :  rdstaum nerson); 

j  intel*tatus<nerson'*; 

'5'  j  currentstatus(nerson)} 

'8'  »  suitflae  »•  rrue* 
othereise  heln 
end; 

until  euitflae 

end;  (nainnenu) 

PROCEDURE  STARTUP  (  nerson  s  strine  >j 

(Initializes  tne  generic  record  «vs  for  -*loD*l  'jse  bv  ntavers. > 
beein 

If  nerson  ■  nlaversCll 
then  svs  !■  rs 
else  svs  ;•  bs; 

end)  Cstartun) 

PROCEDURE  PLAVERONEi 

(Allows  annual  budeer.  decisions  for  niaenr  i,  Undates  all  nertinent 
uariables  for  conmjtation  of  ninnnr  and  usaee  in  ‘'ollowine  nlaw.  > 
oeein 

startun  (nlawersClJ >i 
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iwairMMnu  <^la»#r»Cl] >j 
wiw.  <iHaw*r»Cl3> 


PWCEOURE  PU)VCRTUOi 
CS**  PlMcrl  rautin».3 
bMin 

startup  oia¥#r»C23^i 
uadata  <alavar«C23jOlgboda*t.Ci<*ar3 )» 
Aaimanu  <alaMar«C23>i 
"•int  Calaw#r>»C23) 

PROCSOURE  SAHEENOi 
<Clo4as  M'intar-s.  > 
bavin 

claarscraani 

if  NOT  (artr  ■  '3')  than  cl<>*a<z.locl<  > 

<aanaand> 


oaain 
nandonizai 
i3ETCUAL<dad>j 
if  da^^RES'  than  aatall 

aisa 

bavin 

initial izai 
'•hoalawi 

unaira 

andi 

«*ainflav  »■  faUai 

naaaat 

■Mar  :»  Mar  ♦  ti 

initwi 

alavaronai 

alavartwoi 

until  i«ainflav« 

vanaand 


Ctanact' 


CTHg  POLl-ONINfi  SP<!»H»sMTBD  oporepupfr  c^>4P»I  ET  <»«?  in«emED  IN  TH6  MOIN 
PROeROH  AS  BOTCH  I  IJSIHS  THE  CONOILER  'INCLUDE'  OPTION.  OUE  TO  FILE 
SIZE  CONSTROIHTS. > 


SC6HENT  POOCEOJOE  INITIALIZE; 

<Initx«liz»s  17  ma^on  u«in«i  Ovt'iult  p»«r'iMirt«r«i 

inltialiZM  bu(M«t«  u»  default  fidursrsi  intt.i«lizrs 
v*ar.  •x^*noitur*  Miriablr*  and  nunb*r  oF  9y«t«n«> 

PPOCEOUPE  INI TOO; 

OMin 

r^ClI.rian*  »•  '001'in»Cl3.w*au»il  :■  1  ir*t  1 3 , statu*  :•  9i 
r«C13.*rftaO*tarts  :•  92r«Cll.*r<9fRaO  :■  9; 
r*C13.vrlRaOeo*t  :•  Bin*! 1 3 . «^3RaOco«t  t*  9t 
r*C13.*r3RaOco«t  t«  9ir*C13. inuantory  i*  49* 
n*C13.A0co*t  :«  S0*n*C13.OPro«t  i«  39* 
i~»Ci3.util*  t*  20*r*C13.nurliAtt  t«  25* 
rsClI.untttXM  »»  9»n*Ct3.sort  i«  'OQ'* 
r*C13.d*l«t*  >■  SirtClI.Mnaltw  t*  9* 
r»C13.0PeostTTL  }■  <r*H3.0Pco*t>*«. i**C13.  irwntonv)* 
n*C13.otil*TTL  ««  <r*£t3.util«>Kr*Il].  in»**ntorv)* 
r*C23.na«ia  i*  '0O2'*r*(23.vna<«ail  t*  4;r«C23. statu*  t*  1* 
r*C23.*rRaO*tart«  i«  lir*t23.'*nofPaO  *«  9* 
r*C23.*rlRa0co*t  »«  498jrsC23.yn29a0co»t  :•  999* 
r*C23.*r3Ra0eo«t  :■  7e0*r*C23.inu<»ntor*  t»  9* 
r*C23.AQee*t  i*  399*r*C23.0Pro*t  *•  175» 
r«C23.uttl«  !•  3e9*nsC23.Mjrli«it  t*  15* 
r*£23.un»tOuw  «»  0*r*t23.sort  i»  '00'* 
r«C23.d*l«ta  >>  9*r4C23.F<inaity  :■  9; 
r«C23.0Pco*tTTL  :•  <r*£23.0Pro*t>*<n*C23.  inutntorv)* 
r*C23.util»TTL  :■  <r*E23.util*>»<r**£23. inuanton*)* 
r*£33.na«a  »■  '003'jn*£31.w*awail  i*  9(r*£33.statu*  i»  1* 
r*C33.*rOa£)*tart«  :■  3*r*t33.*rofRaO  ?■  9* 
r*£31.‘^lRaOco*t  :•  809*r*£33.w*2RaOco*t  t»  1999* 
r*C33.*r3RaOco*t  t*  698*r*£33. inuantorv  :■  9* 
r*£33.00eo*t  s«  299*r*£33,0Pro*t  :■  199* 
r*C33. utils  :•  2S02r*£33.a«jrlinit  ;■  15* 
r*£33.unitbu«  :»  9in*£33.*ort  *•  'OR'; 
r*£33.dalata  :•  9ir*£33.nanalt*  :•  9* 
i~*£33.0Pco*tTTL  >»  <r*£33,0Pco*t>s<r*£33. invantorv>» 
r*£33.util*rn..  :■  <r*£33.util*)a<r*£33.  invantorv) 
and*  <initoa> 

PROCEOL'RE  INITSET108* 
bavin 

m£4].nana  :■  'OBl' jr*£4l.«#nsuail  :»  l*r*£43.statu*  :«  9* 
r*£43.*rRaO*tart*  »■  9»r*£4].*rfrf^a0  :•*  9* 
r*£4].*rlRaOeo*t  «»  9ir*£4l.<^2Ra0rost  s-*  9* 
r*C43.*r3Ra0co*t  ;•  0*r*£*3.inuantor**  ;•  29* 
r**C4].A0co*t  :»  79*rs£41.0Pco«t  !59i 

r>*C43. utils  :■  129*r*£43.a»jnlimt  :»  15* 
r*£43.unitOuy  ;•  9*r«£4].snrt  :■  'OB'; 
r*C43.d*lata  j«  9ir*C43.n*n*lt*  «•  9* 
r*£43.0Pco«tTTL  »■  ''r**£43.0ProsT.>#<r*£4i,  mwantorv?* 
r*C43.util*TTL  J»  Cr*£4].util*>a<r*£43. inwantorv)* 
r*£53,nana  s*  'OBInod' *r»£53.*rsuail  :•  3;r*C53. itatu*  !■  1* 
r*£53.*rRaO»tart*  :■  2*r*£51.'*mVP.*0  !•  9» 
r*£53.*rlRaOco«t  »■  l09»r*£53.vr2RaOeo«t  :•  9* 


r«C5].w*3R«0co»t  :■  d»r«£5].if>«*tr>tor«#  s*  ^Js 
rsC5}.Meo«t  :•  ■50jr*stS].OP<ro«r.  »»  t20i 
r>sCS3<utils  i*  l40jr«CS].*«jrli«iit  :■  tSi 
rsCSJ.unitl^  :•  0ir*£51.^ort-  »•  '08' t 
r«C5].d»l«t«  >a  0}r«C9].a«n«Kv  :■  8i 
rsC5].0^o«tT7l.  !•  <r»C31.0Pco»t>»<r«C53.  inwntor*s>i 
rsCSl.utilsTTL  »■  (r»CS3.util*>*<r^£53.inw««torv>i 
r5C6].n«w  :•  '0e2‘'ir«C63.w‘av*il  i*  Sjr«C63. statu*  ;■  Ij 
rsCSl.srAaOstarts  >■  lii*st63.«rofRaO  t>  9t 
rsCSl.vrlRaOcost  eMtrsCSl.nrSRaOcost  ;«  9i 
rsC63.sr3RaOeost  :«  dir^C63.inw«ntorv  ;■  9i 
rsC63.AOco*t  :«  73jrsC6].0Pro«t  :•  39i 
rsC6]. utils  :s  aeirsCSl.inx'UMit  :*  35« 
rsCSl.unitbuw  :■  0irsCSJ.*oi^  :•  '09' i 
rsC63.fllal«t«  i«  0«rsC6].a<inaltu  ;•  0j 
rsCSl.O^ostTTL  :•  < rsCSI.OPcost VK rsC63.  inutntoruX 
r>sC6].utilsTTL  >*  <rsC8].utils>«<psC6]. inuantorv) 

•ndJ  <ir*itSET!c©> 

PAOCEOUAE  INITSETSOei 
0*9in 

rsC71.nai**  s«  '083' jrsC71.viri»»*il  f»  airsC73. status  »•  li 
rsC71.srAa0star*ts  i«  2jrsC73.srofftaO  :•  0» 
rsC71.urlAa0eost  »■  900ii^r73.  w‘2RaOco*t  »■  9094 
r<sC73,sr3RaOeo*t  t*  9trsC7]«  inwsntbru  t>  04 
rsC71.Milcost  j*  t004rst73.OPco*t  ?•  904 
rsCTl.util*  !•  I294r>*£71.aurliait  t»  IS» 
r*s(?3.unttOuw  j«  04r»sC71,*ort  8»  '08'4 
rsC7].dtl«t«  :■  04rsC7].a«nalty  i>  04 
rsC73.0Pco*tTTl.  >•  f  rs£73.0Prost>»<rst73.  imi*ntorv>4 
r*C73.gtil*TTL  i«  <rs£71.uti l*>s<i^£73. irw*ntor*i4>4 
rs£33.na(W  >«  '0B3Me4' >r>sC83.v«*«’atl  i*  34rsC93. statu*  >•  14 
rs£83.wAaOstarts  *»  24rs£83.^«r4fPaO  !»  04 
rs£83.srlRaOeost  !•  S004rs£83.'a*29a£)cost  »•  9j 
rsEd3.sr3RaOeo*t  i»  04rs£83.ir»4*ntcrM  «■  04 
rsCSl.MOcost  :•  80irs£83.OPcost  :»  79f 
rs£83. utils  !•  2004rs£83.Purliait  :»  134 
r^CSl.unitbuy  :■  04rsC81.sQrt  s*  '08' » 
rs£33.dtlat«  :•  04rsC83.a<tnaltv  *■  04 
rs£33.0Pco*tTTL  :*  <rsC33.0Pc©st>s<rs£81.  tnusf»tor^>4 
rs£83.util*TTL  i«  <rs£83.utils>*<rs£33. inu*ntors>4 
rs£33.na4»*  >•  '0B4'4rs£83.urswail  :»  9 4 r«t 31. statu*  :•  l4 
rsC93.srAaO*tarts  j*  34rs£8J.srofRaO  :■  04 
rs£93.srlRaDcost  ;■  5004rs£93.vr2RaOcosr  !»  8004 
rsE93.sr3RaOcost  j*  04rs£93. inwaroors  i»  04 
rsC93.RQeost  :•  734rsE93.'yrost  ?»  29; 
rsC9].util*  :«  754rs£93.a'jrli«it  :■  70; 
rsC9J.unitOuv  »•  04rs£91.5or»  :»  '08' i 
rsC93.4*l«t«  !•  04rs£91.a«t>altv  *.»  04 
rsE93.0PcostTTU  :•  <rs£31.0Pcost>«^r>»C91.  znuantor*!i>4 
rs£93.util*TTL  »»  <  rs£93. utils )s<rs£93.  inuantoruJ 
♦nd4  <irnt8ET2ob> 

PROCEDURE  INITOA; 

PROCEDURE  INIT0RMM4 
basin 

ns£l03.na*ia  »■  'OPl'4rsC101.>^svail  !■  lirsC 103. status  :■  04 
ns£10].srRaOstarts  i*  0;rs£J 03. vrof RaO  :■  0; 
rsCl01.srlRaOeo*t  »■  04r«C103. w2Ra0co*t  :■  04 
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r*«C10].vr3RaOco«t.  :*  0»r^Cl®].  inwtntc!**#  :■  5®* 
rsC10}.M)eo«t  :»  ?■  SOt 

r«C101.util«  :«  80ir4Cl®].Purll«iit  :«  2St 
rsC10].unitbuv  :«  9}r»C191.fort.  ;■  ^00'; 
r»C10].d•l•^•  1*  0ir«C101.Mnaltv  i*  0i 
i^C10].OPco*tTTL  J»  <r«C103.OPcoat>»<r^£103.im**ntorv)i 
r«Ct03.util4TTL  >■  <rtC103.util»>»<r»C103. in*.>*raor^)i 
r-sCll].i'«aM  :•  'OOlniod' {r«C  113. v<r«.<.9il  :*  2jr5C  1 1 3 . status  :•  1 
•ndi  <initdaaoj<> 

isaain 

initdaauxi 

r-sC113.^r0aOstarts  »•  lirstllS.wrofl^iO  :»  9* 
rsC113.urlRa0cost  i«  200ir«tll3.ar’2ftaOeo«t  t»  9> 
rsCin.w'SRaOeost  :■  9f rsC  113.  irtuatYtora  :»  9i 
raCllJ.tWeost.  :«  30irsC113.OPco«t  :<■  90; 
r-sC113. utils  t*  90irsCll3.iMjrllMit  s*  25; 
rsC113.ur»itAuw  >•  9;rsC113.sort  :■  'Ofi' t 
rsClll.dalata  :•  9;rsCll3.a«naltv  :■  9; 
r*sC111.0PeostTTL  j*  (rsC113.0Pcost>s<rsC113.  inuantora); 
rsC113.utilsTTL  t«  <i*sC113.utils>»<rsCll3.inwantor**); 
rsC123.na«ia  i«  ''0P2'';rsC123.«pauall  :•  5;rsC  123. status  :■  1; 
rsC123.ar0aOstarts  t*  2;rstt23.<^r<«fRa0  t"  9; 
rsC123.urlRaOcost  t*  390<raC123.Hr2RaOcost  i*  999; 
rs£123.wrlRaOeost  :■  800;«~sC123.ir»uanteirv  f»  9; 
rsC123.Mcost  ;«  S9i;^Cl23.0Pcost  t*  49; 
i~sC12]. utils  >•  120irsCl23.aur*imit  >*  20; 
rsC123.ur>itbuw  >«  9;rsCl23.sort  :■  'DO'; 
rsC123.<lalata  >•  0irsC123.i»analts  »•  0; 
rsC123.0OcostTTL  t«  <rsC123.0Pcost>a<r*stl23, inwantor*v;; 
rsC123.utilsTTL  t»  <rsCl23.utils>»<r*sCl23. irtuantora); 
rsC133.naaa  t«  'O03';rsC133.wrauaiI  >■  5 irsC 133. status  :•  1; 
rsC 133 . w41a0starts  j«  3;rsC133.vro#HaO  t«  9; 
rsC133.sriRaOeost  t"  lOO0;rsC133.sr2RaOcost  :*  1599; 
rsC133.yr3RaOcost  ;»  0;rsC173.  invantorv  »»  9; 
rsC133.Mlcost  »«  i30;rsCl33.OP»^ost  »•  29; 
rsC133. utils  :■  30;rstl33.»ajrl«ait.  i«  29; 
rsC133.unitbus  9irsCl31.sort  i*  'OR'; 
rs£133.iaalata  :■  0;rs£133.aar*altv  :■  9; 
rsC133.0^ostTTL  »■  <rsC133.00eost)HK rs£l33. inwarttorv); 
rsC133.utilsTTL  ««  <rs£l33.utils>s<rstl33. inwantorai 
and;  <imtda3 

RROCaSURE  INITDB; 

PROCEDURE  INIT08RUK; 
basin 

ns£143.naaa  i»  '0Bl';rstt43.yn»"aTl  ;»  l;rsC 14], status  :■  9; 
rsC14l. vrRaOstarts  :«  9;rsC14l."#rot'PaO  :»  9; 
rsC14J,>#*lRa0cost  :**9;nsri43.«r2RaOcost  :«  9; 
rsC143.^3Ra0cost  »•  9;rstl43.  inwantora  :■  199; 
nsC14].RQeost  40#i«s£143,OPeost  :■  20; 
nsC143. utils  s«  tS;rsC14].aurltMit  i»  29; 
nsC143.unitiMA)  !■  9irstl43. sort  f»  '09'; 
nsCl43.dalata  »■  9;rstl43.aanaltv  :«  9; 
f*stl43.0Peost'rn.  ;•  rsCl43.0Pcost/*<r«C143.:nvantor»#;; 
rsC143.utilsTTL  »■  trsC143. utils )a<rstl43. inuantors) 
and;  <injtribaur3 

basin 

inttdbaux; 

rsC153.nana  »•  '082' ;rsC 193. travail  :■  7 ;rsC153. status  ;■  1; 


racial. :•  lJrHCl51.'#ro+'R«0  !■ 
rsClS].M*lR«Oeoftt  »•  4ee»r«Cl57.yi*2R«0co5t  :■  400j 
r4£lS].w3R«Oco«t  i»  0jr*»C153.im*tntor*<  :■  9i 
nHS3.Meo%t  :•  30ir*»fl51.OPco*t  :»  79 1 
r«ClSl.util«  >«  160ir«ClS].^urllAit  :■  25f 
rsClS3.urtitbuw  »»  0ir<C153.«or»:  :•  'OB' t 
:«  dir4Cl3].A«naltv  i*  9t 

r»C153.0Peo*trn.  :•  ^r>*£151.0Pc<>«t.>»<i~!tt53.  iowtntorv)* 
rsClS3.util«TTL  :•  t  r»C  151. •Ail»>*<r«C  153.  in»>«raory>; 
rtClSl.rMM  :«  '083'ir«ClB3.<A*»««il  r«  3ir«C  163. statu*  :•  1; 
r*C  183. vrRaOstarts  *•  2ir^C183.'^ro*'RaO  »•  6* 
rsCl63.*rlRaOco«t  :•  186B}r«Cl83.'A*2RaOco*t  »•  6* 
r*Ct83.^3RaOeo«t  t*  8>r*C183.  inutntor*  :•  di 
rsClSl.PQcost  :•  100jr«C163.OPrr«it  :■  5Bi 
rsClSl. utils  ]•  200jrs£183.Aurlimit  >«  2St 
rsCiei.unitlMM  «■  0ir*Cie3.sert  s»  'OB'i 
rsC163.d»l*ta  :*  0irsC163.A«n«lt*  t"  dt 
f*sCl63.0Peostm.  ;•  <i**Cl63.0Pco«t)*<rsCt61.xnu*ntorv>* 
i*sCl83.utilsm.  t*  <rs£161.utils>*<rsC163. inw«ntor*v>* 
rsCl73.nai**  i*  '0B4'irsCl73.vir*au»il  :»  5>rstl73.*t»tu*  :»  li 
r«El73.wHUO«tart*  s«  3ii^£171.'rfrot'RaO  s*  0* 
r*£l73.*rlRaOco*t  i«  600jrs£l73.sr2R*Deri*t  »■  600i 
i*s£173.*r3R«Oco*t  :■  0»r*C173. inuantor*#  :«  6* 
r*C173.flOco«t  «•  l30*rs£l73.OPco*t  »»  225j 
r*£l73. utils  i«  400jrs£171.AurliAit  :■  10* 
riC173.unit»x«  »•  0*r*C173.*ort.  »■  '00' i 
r*sE173.d»l*t*  >•  0ir«£l73.A«n«lty  >•  9i 
r*sC173.0Pco*tTTL  :•  <r*Cl71.0Pco«t>*<rsC173. iimtntcry)* 
i*s£l73.otilsTTL  »•  <rs£171.utils>*<r*tl73.  in»;*ntor<!*>* 

•ndi  '  imtdb> 

PROCEDURE  INITGENRCOOTRj 
lj€*ln 

tjs  t»  rsi 

rvobudwtCll  ;«  9300)r«4bud*vtC23  ;•  9600ir«dbud9rtt33  :■  9400( 
r«tlbud«rtC4]  :■  9200>r<rdbud««tC53  :•  SlBBtntdbudwtCBl  :•  91001 
r*<Jbud*rtC73  t»  9100jr»dbud**tC93  :»  9t0Oir«dbud«*tE93  :«  910O< 
r*«4bud«*tC103  :«  91001 

r*d6ua**tC113  !»  9300»r*Ubud**t£123  :•  PR00ir*dbud*rttl33  :■  9400* 
r*dbu«l**tC143  J*  9200»r<Mbu(3**tC153  :•  9100»r»<1bud*rtC16]  :■  9100s 
f^dDuo*rtCl73  «•  9100ir»dbo»i*Attl83  8»  9l09sr«dbu(l*vt£193  :■  9100s 
i"<Wbud**tC201  :•  9100s 
blubudmn.  :«  rtobudwts 
r*A*i**nt  :*  0i 

bawspant  :■  Bsrisppnt  0s6isp<mt  ;»  0srr>fsp«tnt  s*  0sord*p*r*t  :* 
nu«ofsv*t»AS  ;■  17: 

■!*Mr  j»  0st»arcont  s»  'M' 

•trat  <imt9«nrldata> 


D«*in 

initoasimts«tlabiinxts»t2o0simt4asin>tdbsintt*«nrldata 
«nds  Cinitializ*} 


from 

P«»l. available  fn,^y 


ane  fOUOHINe  SEeHENTEO  P90CE0U»«S  ftRE  COHPILET)  OHO  INSERTS)  IN  THE  HRIN 
PROSRRH  AS  BATCH  lA  USING  THE  CWPILER  'IHCLUOE'  OPTION.  DUE  TO  PILE 
SIZE  CONSTRAINTS. > 


SEGHB^T  PROCEDURE  INTELSTRTUSO«~(on  t  «trjn9>; 

<Acc»*»*d  from  (Win  menu.  Prowid**  of  currorn,  ir«.*lli«*nc*. 

AlloM  th*  mroctpromtrfr.  of  fo*Ajro  t.h*  dis^law  of 

aewirod  intelliMnc*.  and  the  «crannin«  of  all  ronunts  budartod 
for  th*  currant  war.> 
uar 

iflM  :  bodlaani  d  :  cKarx 

PROCEDURE  RIOINPOi 
uar 

a  :  chart 

PROCEDURE  BLUERIDi 
baain 

if  <fbo  »  tSG>  or  ^fbo  •  -t0A>  than 
eaain 

fbot*fbQ>t0Gt  biaaantt»bifiaant-I0G;  blultftsadlulaftaiSG 
andi 

if  <fbd  •  1G8>  or  <fbd  ■  -t0G>  than 
baatn 

fbdiafbd-lRG*  biiaanti^iaaant»l0G»  blul#ft:adlglaft*l9G 
and» 

if  <fbrdo  »  ISG)  or  <fbrdo  •  -IGG)  than 
baain 

fbrdo»»fbrdo-lGGt  bisrant»"diaaant.-l0Gi  blulaftiatolulaftalSG 
andi 

if  (fbrdd  »  ISA'  or  <fbrdd  »  -IW'  than 
baain 

fbrdd»*fbrd^l0Ri  bisrantiabiarant-lOGt  blulaft*«dlulaft>100 
and! 

if  (fro  »  -20G>  or  (f**o  »  -iw*  than 
baain 

froi afroaERG*  biai»ant»»hi«rant-’RGi  blolafti^lulaftaZSG 
andt 

if  <frd  ■  -290^  or  (frd  •  -100)  than 
baain 

frd*afrda200»  8nrants«bt5rant-200/  blulaftiablulaftaEOG 
andt 

if  vfrrdo  ■  -200>  or  (fmjo  »  -t00>  than 
baain 

f r rdo » »fr naoaERG t  bl9ram.:«bnaanr.-E0G.»  blulaftr^lulaft+200 
andt 

if  (frrOit  »  -20G>  or  <'fmdd  »  -IPS''  than 
baatn 

frrddiafrrddaEGGi  bisaant;aiOiaaant-20A»  blulaft»»blolafta290 
and 

andJ  (blnarid> 

PROCEDURE  REORIOi 
baain 

if  I  fro  «  t00>  or  ffm  •  -IW)  ttw* 
oaain 

froi«fro-t0(9i  rnaant:»ri«»ant-!00i  radlafti^radlaft-tlOG 
andf 
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u'  «  100>  or  ^frd  »  -100)  tlw* 
brtin 

♦■■rdi*»'r'l-!00j  ri«r*m.»*ri*r*r«.-100«  r**dl»ft.*«r*dl#ft+100 
«ndi 

\f  (frr^  »  100)  or  <frr<3o  •  -100)  th*f* 

♦'rraot«t'rr<lo-100*  rio*nt»"riir*m.-l00i  r<tdl*ft.i»ir«ll*t't-^l00 
«rdi 

if  <frr<jd  ■  100)  or  <frrd«J  ■  -100)  r.h«« 

Oe»tn 

frr<jdi»frrdd-100*  riMiint»«rn»»nt,-190t  r«dl*fttw«dl«ft>100 
•ridi 

if  <fbo  «  -200)  or  <ft»  »-l00>  th*f» 
brfln 

fbo*«fbo+'200*  risr*ntj^tsr*m.-200i  n*dli»ft»^»*<ll#f‘t-**200 
«rdi 

if  <fbd  ■  -200)  or  <fbd  ■  -100)  thdn 
b*9in 

fbdi*fbd>200»  risi»<mt:"ri«M**rt-2e0i  r^i tf ts«p«dl*ft.+200 
«rdi 

if  (fbrdo  »  -200)  or  ^fbrde  •  -100)  tlw* 
beoin 

f brdot «fbrdo»200 «  r isriwt ; tront-200)  r«dlofti«rodl»ft+200 
■•ndj 

if  <fbrdd  «  -200)  or  <fbrdd  •  -100)  ♦.►'•n 
b««tn 

fbrddi»fBrdd*300i  ri«r«m.»«rt«r<mt-200»  r*dl*ft»«r*dl#ft+200 
•rd 

■mdji  <r*drld> 


booin 

if  •<r-*on  »  rlawor^ClJ  thon  r^drld 
«li«  bluorid; 
c  1  iMr«cr*rf** 

njtitx  15*10# 'OLL  INTEU.I0eNC?/^nUNTERINT6LLIG!ENCE  PROCUREHCMTS' )« 
irjtxK  15,11,'  H0U6  B|fEN  CWCELLEO  POR  THe  VEPR.' >» 

15,13,'  <Pr»f«  0fTi.»M  to  Cont.xnd»>' >« 

nttOiit) 

ijndi  Oidxnfo) 

PROCEDURE  BUVINFOi 
•Jar 

*  :  coarx 

PROCEDURE  0UVMENUX 
•Jar 

f  ;  cnar; 

PROCEDURE  OOITREDx 

PROCEDURE  00) 
baaxn 

if  fro«100)  or  <fr«j»-ift0)  fjntr 
0««xr 

c  laar^cram) 

•ut.it.<  10,10. 'FWOINR  FOR  ITEM  HRS  tJLPEPOV  SEEN  PROUIDED' 

IR,11 'Pr^.t  RETURN  to  Continu*)'  >) 
raad^  0  )  i 
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buwmmu  > 

«nd2 

froi*fro+t00j 

cl*ar«ci*«<tn> 

12*10* 'Votj  hauif  .iu%z  all9*«d  «100  for  int«lli«tnce  M*oeur«M 

«nt. '  )i 

12*11*"  PETURM  to  Continor>"  >2 

r«a(KO> 

«ndi 


PROCEDURE  BB2 
b*9tn 

if  <fria«100)  or  <frtf^t00>  th*« 
botin 

':l»«*«cr««n2 

iNjtit<l6.10."RJNOTNS  POR  ‘Thts  ITEM  HRS  RLREROV  BEEH  PROUIOS)" 

rutit<  18.11*'  <PrH*^i.  RETURN  to  Com.ino*>"  >2 

r<Md<d>2 

«yit<Ouwwr«j> 

•nd2 

frdj*ff*O^I002  ri<ir»f»e2Wi«r<mt^l002  r^loft»"r*dl*ft-100J 
cl*«r«cr<i*n2 

wtit<  12*10»"Voo  H«j>r  j>jtt  •llotftt  *180  for  intolliMncr  w>oeir*w 

mtit< 12*11*"  <P~*«»  RSnjRN  to  Continuo>">2 

r««d<d> 

•ndi  '"bb'; 


PROCEDURE  CC2 
oovin 

if  <frr«lo*t00>  or  <frr«1o«"t00.>  tf>*n 
broin 

cloar5cr<r*n2 

rutit<lS.10."PJNr»IN0  PriR  this  TTEH  HRB  RLREBOV  BEEN  PROUIOEO' 

^2 

wjliti  16*11*'  "PTrn*  PETLIRN  to  Com.inu*>' >2 

)*<t«d<d)2 

*xit< bosrono ) 

«nd2 

frrdo»«fi’*''^o>1002  ri«r*rt»*»ini»*nt^l002  l"♦dl•ft2^'H^dlfft-1002 
cl*«ncr**n2 

wjtiw  12*10*'Voo  h»wo  ju«t  »not<»d  »1P0  for  intollioonc*  woeuror 

*rit. '  >2 

••jtitC  12*11*'  'PrMt  PETIJRN  to  Contxnu*>' >2 

r*»d<d') 

•ndi  ^cc.’f 


PROCEDURE  002 
bofirt 

if  <frrdd*100)  or  <■  frrdd— 100>  thon 
booin 

cl»ar?crw»» 

•Xjtiu  l8*l0*'PtiNOIN0  "OR  THIS  ITEM  HRS  OLREflOV  BEEN  PROUIDEO' 
(»utit<  I8.lt*'  vPr#*^  RETURN  to  'lontinoo^^' )2 
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tnt. ' 


tndj 

fi-rdot"fr***dd*100» 
cl#«r»cr**ni 

M/tit(  i2>10*'Vou  h«u*  just  sll/rtM  *180  for  intsl  1  Iwnc*  n>wur«M 

»utit<  -'Pnrss  RET»I8N  to  Continu#>' )» 

r««d<d> 

•ndJ  ^d<t> 

PROCOURE  EEi 
bo»tn 

if  <fbo»“20O)  or  <ftjo^ie0>  th*n 
bMin 

clo*rscr««n> 

»tjt,it<iS.10.^PUH0INe  PQR  THIS  ITEH  HRS  RtREROV  BEEH  PROUIOEO' 

rutit<  IS*!!*'  <Pr*ss  RBTTJRH  to  ContinooV  >» 

r«ad<0>2 
«yit<buwMnu> 

«ndJ 

»boffbO“280»  ris»*nt»*risr<tr**^?80i  r4«llt^t>*r«dl«ft->200> 
cloorseroonj 

p»jtit<3»l8»'Voo  H»uo  Just  allottd  *280  for  Intoilistnco/countorin 

tollistneo  procurswort. ‘ )»  _ 

putit< IS*!!*"  <Pr*s*  RBTURH  to  Cor»tinu»>‘' )* 

rtacKd) 

#nct» 

PROCEDURE  PFi 
Ortin 

if  <fbO«»-280)  or  '’f!j<a»-t00>  th*f» 
b*«tr 

cloirscropri 

Pur.it<t8.ie*^PUN0IH0  POR  THIS  ITEM  HRS  RLREROV  BEEN  PROUICED' 

li 

•utit<  16*11*''  <Pr*«s  RETURN  to  Cor»tino»>' >» 

r««GKd>) 

«xit<buMwnu> 

«nd> 

fbdi*fbd-280»  risr*rti«risr«m.+280i  p*dl*fti^'^l*ft-208i 
clo«rscr**n» 

PUtit<9*lR*'Vou  Hour  Just  4llot«d  >280  for  intollisonco/'countorin 

proeursflwnt. '  ■'j  _ 

•utit<  l9*ll»'  'Ptsss  return  to  Cor»t»nuo>' >i 

r«aO<d) 

•nd* 

PROCEDURE  liSi 
bosjn 

if  ( fbrdo»"2e8>  or  <  ^Ho— »80)  thsr 
bostn 

cleirscrwij 

PUtit<l6.18*^PUN0INe  PDA  THIS  ITEN  HAS  ALREAOV  BE&4  PROUICEO" 

(»utit<  IS.!!*'  'Prpss  RETURN  to  Continj*>'  'll 

r««d(d>i 

*xit<buwwno> 

«fMj) 
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»/»»H  gf  t— ?88l 

cl*«r«cr««ni 

M/tit<9*10*^Vou  h4K<v  Ji<«i  allot.*^  sZOH  for  ir>t«lUMnc*^counMrin 
toUiMTc*  PToeuronont. '  >1 

»utit< 1S«11«'  <Pr**t  RETURN  to  Com.inuo>' )» 

r««(K4) 

•ndi  i99> 

PROCEDURE  HHi 

boom 

if  I  fbr«Jd»-200>  or  <’fpr>ia»-t0O^  thon 

boom 

cloarwroorti 

puti«<  IS.IO.^PUNOINR  PRR  this  ITEH  HQS  RLREROV  BEB4  PROUIOED' 

>1 

PUtitt  16*11  ;Pr#«*  RETURN  to  Cortinu»>'' >* 

r«4d<d>i 

pxit<buvMnu> 

•ndi 

f1srdO»»fbrdd“296j  r«dl»fti>r«dl*ft-200> 

e  loortcroon* 

putit<9«19*''Vou  tiovo  ju*t  sllotPN  «266  for  intolliMnco/courtMrin 
tolliotnco  procirooowt. ^ )» 

pwtit<  13*11*'  ^Prp*«  RET1.IRN  to  Continoo>')» 

rtOcKd) 

•ndJ  ^hb> 


b««in 
COM  f  of 

'♦'•'O'  I  RA« 

'b'*'8'  t  89t 
'c'*'C'  I  CCi 
'd'*'0'  I  noi 
'♦'*'£'  :  EEj 
'f'*'F'  :  FFs 
'9'  *'0'  !  00* 

'h'*'H'  :  HM» 

'^'*'0'  :  iflM  i«  tr*^ 


f:doitr*d> 


PROCEDURE  OOITBLUE* 


PROCaXWE  PR* 

boom 

if  <  fboptas)  or  <  fbop-’W*  tNm 
bo^in 

clP-imerMr* 

Put.it<  18.10*  «INOIN0  FOR  THIS  ITEM  HOS  Ol.REROV  BE®*  PROUIOED' 

p*itit<  16*11*'  <:Prr»»  RETURN  to  Cor»tinoo>' )* 

r*od<d>» 
it<  b«  iHwtno  > 

«nd* 

fboipfbo+llW»  bisppw.i-bUppm.'MRO*  bluloftiPbluloft-lbO* 
cloorMrppni 

putitt  12*10* 'Vou  hJtv*  jv9t  ^llotod  *160  for  intolliMnc*  procurw* 
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vPr*'**  SETlJftN  to  Cor*t,ino*>0* 
«■»*> 


.v 


^Jtit(  ISjH*' 
r«ad<d> 

•ndi 


PmXEOURE  BBi 
b««in 

It'  ^fbd"10®'  or  (fbd»“l00^  ttvtr 
b««in 

cl*4rscp««ni 

fiUttt<16»ie>'RJH0IN6  FOR  TUTS  TT€H  HRS  ALREROV  BEEH  PROWIOEO' 

)i 

putitt  16*11 <Prr««  RETliRN  to  Coniino*>' )* 

r<»ad(d>i 

♦xit<bo«iiwnu  > 

•rdi 

fbOi^t-bd^lOSi  0i«i»wtt*fti»»*m-+lS6i  blulot't i^lol»ft-106* 
eloarscrMTi 

rutit(  12*16* 'VO'J  H«<it  j>,i«t  allotod  *166  for  int*lliMne»  ^tocupm 

««,.  ^  >1 

rutit<  12*11*"  <'Frr?«  RETURN  to  Cor*tinoo>"  >i 

r««d<d) 

#ndi  Cbb> 


PROCEDURE  CCi 
tjosin 

It'  <fbrdo«106>  or  <fbrdo«i^l06>  th<»r 
onin 

cl»«r^r<»«ni 

i«itit<t6*ie*'FIJN0tN6  FOR  THIS  ITEM  MRS  RUWflOV  SEEN  PROUIDEO" 

)i 

iiwt.xt<  16*11*"  ''Pr<»«^;  RETURN  to  Cor«.xniJO>' >» 

i~*«d<d>i 

y<xt(b«.r.ii»otw.i> 

•  ”td» 

#'br*»j»»t'ftrdo+166i  Iji«wf»ts*bx«r»nftl06i  l>lulrPt.i^lol*ft-106* 

c  l*«r«<r<»*n  I 

wjtjt<  12*16*  Vou  h«Mit  ..<*«t  illotwj  »100  for  intolliotnc*  i^rocorow 

itnt. ' )» 

i"jtx».(  12*11  *"  «'Pr<t9«  RETURN  to  Contxnu*>"  )* 

rooxKd) 

♦ndi  <':f> 


PROCEDURE  ODi 
0*01  n 

It'  f  t'br<1O»t0R;'  or  fbr««fftw-»06'>  »h*n 
(JIWXO 

■:l»*r»rrw*» 

•utxt< ie,l6*"BUN0IH6  FOR  THIS  ITEM  HRS  RLREROV  BEEN  PROUIDED' 

•tjt.xw  1R*1 1*"  ''Pr»^«  RETliRN  to  Contiowt' )i 

r<»»d<d'J 
•y.i  t<  &ijv«i»ru  > 
imdi 

fbr<Mi«fMr<10tt66>  t?i5i»<frt»«t‘’tr<mt-tl66j  t>lui*ft:»blul»t't-l66i 
cl»«r^cr*<fns 

•utxtt  12*16*' Vou  I'jst  »Uot<»d  *166  for  xntolliMrcr  •roexjr*** 


ft 
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*nt. '  >i 


t2jll 

r«ad<<l> 

*ndi 


<Pr*«s  RETURN  to  Contxr*o»>' >i 


PROCEDURE  EEi 
br»in 

if  <fro«-200>  or*  <fr»o»-10R)  r.h*r* 
bMin 

cl*ar*9er«»^j  _ 

wjtitt  16,10, 'FitNOTWe  FOR  THIS  TTEH  H«8  «.REflOV  BEB<  PROUIOED" 

>  i  _ 

^utit<  IS,!!*'  ''Pr»5«  RETURN  to’Continw*>' >i 

#»it<huwr»u> 

•ndi 

fro»«fro“200*  biw>*tft>1«Fgnt*260i  blul*ft»"bloltft“200* 
cl»«r<cr**ni 

Fotit.<5.i0,'Voo  h»Mf  ..iwt.  *200  foT  ifttol  1  iFoncF/coorworirr 

t*Hi»«rK*  ^rocur**r**r»t.. 

19.11,"  <'PrHr*«  RETURN  to  Cor»tinu*>"  )i 

r««(Kd> 

•ndi  ^*0' 

PROCEDURE  FFj 
b**in 

if  (  ft'd^  280)  or  (frdr*  t00>  tNof* 

Orfin 

cI#ar*»eroof»i  „  _ 

iiUtit(t6,10,"FUNOIN9  FOR  THIS  ITEM  HRS  RLREROV  PROUIDEO" 

owtit<  18,11,"  <Pr*««  RETURN  to  Cor»tinoR>"  >x 

r««d(d)> 

♦xitOxiwnu) 

•ndJ 

♦'r»«a:»frO-200*  Oisr#nt.s»*>i5r<mt+200»  blul»ft*"blolrft-200» 
cl*«r5<r<Nrnj 

Futir.<5,10."Vo'j  H«..»  ju*t  allotrd  *268  for  intoUiotncr/’couiuorm 
toUioFTK*  »roeor<wi*«r., "  ■»» 

tnjtxt<  19,11,"  <^Prr*»  RETlJRN  to  Corttinu»>' >t 

r#od<d) 

*nd» 

PROCEDURE  66i 
br*jn 

if  ( f rrOo»  200 >  or  ( frrOo— 100>  th*r> 
begin 

■:l*«r*cr***n» 

.  •uti^  l8,l0,"Fl.iNOTHe  FOR  THIS  ITEM  HRS  RLREROV  BEEN  PROUIDED" 

*5  _ 

wititv  16,11,"  :Pr^g  RETURN  to  Continu*>"  )* 

roKKOii 

•xit<bin*»*n*j' 

«ndi 

f rrdei ■Omo-200 »  bi5rgntJ»bi*i**r»t*200»  blul»fti^lul*f».-200» 
c  l*ar*»er»<»m 

gotir<S,10."Voo  how*  gl*ot*0  *S99  for  int*lli«i*ne*/'count*rin 
t*lli**ne*  *roeor*<»*nt. "  "I » 

injtiti  19,11,"  '  Port*  RETURN  to  Continu»:>' >» 
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Reproduced  from 
best  evaiUble  copy. 


#ndi 

PPOCEOURE  HHi 
b««tn 

if  (frrdtf*  286 >  or  <ff»r^O— 1^>  th*n 
brain 

mjf.iuie.ld.'RiNOINe  FOR  THIS  ITEH  HAS  flLREAOV  BEEN  PROUIOEO" 

>i  _ 

^utit< <Prr*«  RETURN  to  ContxnorX )i 

rr«^d)i 

«xit<buwMtnu> 

•ndi 

f rroat »frr«1tf-20»i  biar«ntiabi«nnt'«>2M2  blul*ftt^lul*ft-20O< 

clrarseraani 

n«jtit(S*lO«'Vou  haur  ju«t  allotctf  «208  for  intrlliMne»«'count«rm 
trlliMncr  proeumwnt. '  > i 

*utit(  IS.llt'  <Prr»»  RETURN  to  Cor*tinor>‘' )i 

r«ad<d> 

«ndJ  <hN> 


brain 
c«a«  f  of 

t  RA* 
'b'»'B'  J  8B> 
'c'.'C'  t  CC» 
i  OOi 
'a'.E"  I  EEj 
'f'.'f'  t  fPi 
'9's'e'  I  GSi 
s  HHi 
i  ifli 


C<1oitblua> 


Forcra' : 

R«£'  Ji 
R&O'  >i 


brain 

clraraerrmi 

rutiU 32* i . 'PURCHASE  OPTIONS' >» 

injtiti  16.3*' A. .  .CiH»rmt  F-^r  Strmatn  of  Enm»  Offanaivr  Forcra' )* 
autit<  16*4* '9. .  .Currant  Forca  Stranat-h  of  Enanv  Oafanaiwa  Fore  as' )» 
autit< 16*3* 'C. ..Currant  'Iffanaiua  Enanv  RW)  Prouacta' )* 
autit<16«S*'0. ..Currant  Orfanait'a  Enana  RtO  Projaeta*  )» 
autiti  18«7.'E. ..Suarlv  Countarintall jaanea  Raaardina  Own  Offanaivr 

autiM  18»3*'F...3omy  Countarintall laanr a  Raaarbina  Own  Oafanaiur 

pijtit<  16*S*'9...S'<arlvi  Co'.'ntarintalliaanca  Raaarbina  Own  Offanaiua 

autit<  18*19* 'H...3uarla  Countarintal  1  laanea  Raaarbina  Oan  Oafanaiur 

aotit<  16*ll*'Q...0<jlt'  '•» 

autit<18*14.'Intalliaanra  Coat  aar  Itan  •’A  thru  Oi:  *199' .>» 
autiti  19*13* 'Count,arintalliaanca  Coat  aar  Itan  iE  thru  M)i  S299' 
if  aaraon  ■  alrm^Cll  than 
brain 

aotojwi 18*16 *»writaln< 'Annual  Oafanaa  Budaat  Ranaininai  f'.radl 


n ) 


i 


I 

L>  ■. 

k'--. 


% 


»ft> 


*nd 

b«9xn 

*otoj«<  'Ownual  Bud**t  R*«*xnin»i  S'^fblul 

*ndi 

Wti« IS.tS.'EHTER  OPTIOH  LETTFRx  ' >i 
«eto)r»<  37<  td  >ir««d<  f  >> 
if  ^*r*on  •  i»t  yj«r<cn  t.H*n 
•Is*  doxtblu* 

•ndi  <;buvA*nu> 


&«sxr> 
r****t 
buvMtnuj 
unf.il  iflM 

•nbj  <hwtnf'o> 

PROCEOOAE  SET INFO i 
•j«r 

♦  >  ch4r>*.*>n*<«*«o>i4e  r  int*«*r‘i 

PROCEOUFE  LINElx 
b*«in 

if  ntrsort  ■  nlaMrsCn  tH*r» 
b**xn 

If  ro  «  -180  th#n 
brtxn 

18*$»'CIA  ijnabW  to  br*KH  tmiw  eour«ttrxnt*llxMnc»  b* 

m*r'  >i 

♦yit<lin*l> 

«nd» 

If  ro  «  188  *.h0n 
0*9tn 

•  !•  rmdom  tond  288«  •  s»  r»ndo(*  tood  208x 
o  »•  bo*fOobi  or  :■  o-rx  o*  :•  o**x 
-woxifi  18»8>i 

'«rit*ln< 'Tor  »1  •n*w»  offensi*/*  utils  ar*  •stinatad  to  b*  b*t« 

••n  ',or.'  and 

•XI  f<  1  in*l  1 
•ndx 

rjtxti 18.3.'  NO  INFORHOTIOH  PROCURED' > 

•nd 

•Is* 

b**in 

if  bo  ■  -188  than 
b**xn 

•ytit<  18.3. 'CIP  '.inabl*  to  br*9ch  tnvMv  coum.«rxnt*llio*ne*  ba 

rriifT'  .'S 

•xit< lin*»  > 

•noi 

if  bo  ■  188  t>i*n 
bosxn 

•  T*  rsndon  nod  :?88»  •  ;■  random  nod  288x 
o  1*  roa*rob»  or  :•  o-»»  or  i*  •■v+rx 
•ofox.'X  18.3  >1 

iiirir,*ln< 'Total  offmsi"*  utils  ir*  •stii»at«d  to  b*  b*t» 

••n  '.or.'  snd  '.or)i 
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Un*I  ;> 

•ndi 

10,3,'  HO  IHPnRMOTlOM  PfiOOJRED' > 

tmi 

•ndi 

PTOCEOURE  UIHE2J 
orvin 

if  W*50f»  *  t.h#n 

b*«ir» 

if  i**l  »  -t00  *.h9n 
o««in 

«ittt<  10,12,'CIQ  unabl*  *.o  •ntmv  cout»t«t*int*Ui»»«c»  0 

)i 

«xit<lin#2> 

<»ndi 

if  nl  *  100 
b*«in 

^  !■  random  •wod  ?00f  ^  ;«  AOd  2001 

4  !■  bd»H9dbl  ta  4^1  :■ 

«)r4xv<  10,t2>} 

writ,i?ln< 'T<jt.al  #«%»«**«  d»f*f*«i>'a  ytils  ar*  miiaatcd  to  b*  tsotw 
a*n  ',o#,'  and  '■,on^i 

♦xit<  linos') 

«ndJ 

nutit<  10,12,'  HO  INPOPMfiTION  PROajRED' > 

•nd 

0l40 

tMt«tn 

if  bd  «  -100  thon 
bottn 

<»utit<  t0,t2,''*I0  '.wablo  t.(j  br^aach  ononv  countarintol  lisoneo  b 

amiar'  it 

oxiiX  linos') 
ondj 

If  bd  ■  100  thon 

boom 

o  »»  nandbo  aod  200#  a  randoo  laod  200# 
o  :•  rda>nqb»  oo  :•  o-»i  oo  :■  4*«» 
oat<»r#<  10,t2>i 

niritolrK 'Total  anooM  dof-rraiwo  vtils  iro  oor.imatod  to  bo  botw 
•on  '.oo,'  and  '.oo)j 

•xit< 1 ino2> 

•nd; 

••Jtiti  10,12,'  HO  INFORMOTTON  PROCURED'  > 

•nd 

♦nd#  <’ltno2> 

PROCEDURE  LINES# 
o»oin 
c  »•  0# 

If  ooraon  ■  nlaworatl]  thon 

boom 

If  rndo  •  -100  thon 
botin 

•utiti  10,13,'CIO  'inaMo  *4  broarh  anono  cotmtorinwllioonco  b 

amt*n'  u 

•vdt(  1  ino3> 

•nd) 

if  rndo  •  100  than 


for  u»  I  to  Oe 

If  <tHCil.4^«tu«■2>  and  <bnCi3.drle%<»«9'>  than 
if<b*Ci].^or».*'0Q' >  or  <’b«Ci3.«orr,»'08'’ >  than 
c:«c-tt  • 

90t03(H< 

nirltaln< 'Raaort*  irdirata  ananv  currantW  fundin*  '.c#'  offan 
aiwa  RU)  aroja<t»')i 

axit< lina3) 

andi 

«Jtit< t9.t3«'  NO  INFORHOTTOM  PftOCUftEO') 
and 
alsa 
baatn 

ordo  •  -t00  than 
bavin 

l9<tS«'ClQ  ■.nabla  to  braaen  ananv  countarintalliwnea  b 

arriar'  >j 

•yiti lina3> 
andi 

if  brdo  ■  100  t>>an 
oaatn 

for  iia  t  to  rntnof*'*«t.an«i  do 

if  <rvCil.4tatu«a2>  and  <raCi].daIata^>  than 
if<r»Cil.vor».«''0O' ^  or  < rat i3.«ort»'0B' >  than^ 
cjarali 

aotoxvt  10«19>s 

(•ritalnt 'Raaort*  trdteata  an«aa  rurrantlw  fundina  '»«»'  offan 
*iwa  RU)  arojaet*' >i 

axit<  Una3> 
andi 

autxt<  10.15.'  HO  IHFORMOnON  PROCURED'  ! 
and 

andi  tlj"a3> 


PROCEDURE  LlNE4i 
bavin 

c  ;»  01 

If  aaraon  ■  alavaratn  than 
bavin 

if  rrdd  ■  -100  than 
bavin 

aytiti  10.1R.'CTP  tjnabla  »o  hraach  anany  countarintalltvanea  b 

arriar'  a 

axit< ItnaR) 
andi 

if  rrdd  •  100  than 
bavin 

for  t:a  I  r.o  m.imof'cyataw  do 

if  <b*Ci].  v.ato»a2)  and  •:  bvCi  3.dalata«9>  than 
if<  bat  i  J.  »ort»'DO' >  or  •'bvti  3.*orta'0B' >  than 
Cjacai J 

votOJryi  t0.lR>» 

mritalni 'Raaorta  tndtrata  ananv  cjrrantlv  fundin*  '.c'  dafan 
aiua  RfcO  arojaot*"  ■; 

axit<  I  inaR) 
andi 

aiJtltl  10.13.' 


NO  IHPORHOTION  PROCURED'! 


bMln 

if  bnid  »  -100  th^ 
brain 

autiU  10*l8.'CIft  imabl*  to  breach  anam  countarintelliaanca  b 

arriar^  >i 

aytt< lina4) 
and2 

if  Ortaa  •  100  than 
baatn 

t-'or  i:»  1  to  nij(i(o#“«v«tiK»«  do 

^rsCil.atatoa^Z^  and  i'raLt\T.dalata«^>  than 
i f<r« Ci 3. aort^'IDO' >  or  <'raCiD.*ort.«'D8' >  than 
c:nc>li 

aotox^ 10*19>r 

wrttaini 'Raaort-a  indicate  ananv  cumantla  ftaidina  ',e*'  dafan 
aiwa  RtO  arojactu'' 3* 

ayit< lina4) 
andJ 

aotlt< 10*t3*'  MO  INPCRMOTION  PROCURED'^ 
and 

andi  <‘lina4‘> 


baain 

claaraeraani 

aytxt< 38*3* 'CURRENT  INTELlTRCNCE  REPPRTSt')* 
nut,it<5.8.'EH0fi*  0RREH8H«  FORCES  INFORMftTIONi '  >i 
Unali 

autxtO.ll.'ENEMV  OEFENSUC  FORCES  INRORmTIOHt' >»_ 
linaEi 

•Utit.<3*14,'EN6My  0FFEN91"E  RW  INFORMOTTONt '  N/ 
lina3i 

rutit<3»l7.'ENEMV  (JEFENSIUE  R*.0  INFORMOTTONj '  >» 
lina4i 

a«jtxt<27.21,'<Praas  RETliRN  to  Conttn»ja>' >« 
raad<a> 

anoi  <aatjnt'o> 

brain 

iflaa  ;■  t'ai«ai 

raaaat 

■:  laaracraani 

atjtJtO .3. 'SELECT  INTELLI«EHCE  ORTTONt  ' 

autitC  t3>9«'0. .  .Rac*iua  Pra«»iou*lM  Rurchaaad  IntaUiamra  Infonaation-  > 

autiti  l3*tl»'R..,P*jrcn»aa  lntal3)«anca'Co*jntarintall laanca  Int'omation' 

njtiti 13>I3»'C... Cancel  OM  rntall in»nra^Countartntalliaanca  fta«jaata'  » 

*»Jtit<  13»14,'  Por  'ha  Currant  Vaar' >i 

a»jtiUl3.l6»'0.  ..Oyit'  )j 
aotoxa<  37 .3  3 » raadt  d  >  • 
caaa  d  of 

a'.R'  :  satinfnj 
'b'*'8'  j  buainfoi 
c'.'C'  I  rtdinfoj 
'a'f  0'  :  iflaa  :•  trya* 
atharwtsa  hair 
andi 

ijntil  Iflaa 

♦ndi  I  nta  \  atatua  > 
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SESHENT  PROCEDURE  INITV'RJ 


annoalW.  ir»t.*Ui-s«nc»  v«rtaOl*«. 

CoMPUtM  •roJ^cttd  total  o^<»i^atir»«  co»t5  Per  y^coairw  •Mar. 

Shalw**  ijnd*«id*«J  now  RM)  frrm  ofsr«^too»  -Mar*  and  <Sotor*ino* 

aholwino  aonaltloa.  Oocronantt  now  bodoot  bw  twico  arouious  budMt 
ouorrgn.  Introduce  randon  draw  to  adjt*st  rxnoetod  budvat  and  RW) 
f iouroa. > 
oar 

jj ji«a*onlfom«dooiation  ;  intraori 

PUNCTION  MINIHUH  :  intoovrj 
ooain 

if  a  <■  306  thon  ainiiwaa  »«  a 
•Is*  MiniMM  :•  366 
•ndJ  <«intMuta> 

PROCEDURE  RINITR0» 
oar 

j#  oarlior  :  intrsor* 

PROCEDURE  RSSUHEi 
B««in 

if  rs£j 3. status  •  2  thm 
b*9tn 

if  rs£ Jl.yrofRaO  ■  2  than 
0o«in 

rBtj3.i^3RaOcn«t»arstjl.'^3RsOcost+<96*jj  )i 
rrdsront  i«  rrdsaont  rsCJl.^^rSRaOcosti 
r*dl#ft  »■  radl*^^  •  rsCJl.yrSRaOcost 
•ndi 

if  rs£j].sro»'RaO  «  t  thon 
b««tn 

rsCj3.^2RaDcostJ»rst  j3.vr2RaOcosr.'HS6*jj  >» 
rrdspant  }•  rrdsrant  ♦  ratJ3.'**2RaO‘:osti 
r»dl*ft  s*  ranlaft  -  rs£J3.vir2RsOcost 
•nd 
•nd 

•ndi  <  ssattarX 

o*sin 

•arli*r  t*  Mar  -  li 
for  4  »•  1  to  nu«*ofsvst**»s  do 
0«sin 

if  < rsCvi J. yrRaOstarts  <•  •arlisr)  an*j  ' rsCjl. status  »  1>  tn*n 
if  rsCJ3.d»l*i»  ■  6  than 
basin 

rsCj 3. status  :•  3; 
rs£j3.yrauai  1  ;■  rsCJl.'jrawail  *■  t 
•ndi 

if  (rsCjj.srRaOstarts  <•  •«rliar>  w»  (rsC 43. status  •  3>  th*n 
if  rsCj3.d*lat*  »  6  than 
b»sin 

r«Cjl.yrn^ail  :« '~«C  il.yrM'ai  I  +  1; 
if  rsIJl.srofRaO  «  6  th*n  rsCJ3.aanaits  s"  6i 
if  rsCjl.srofRaO  •  t  than 
D*sin 

as*  r«Cjl.'jrtR'^Dr"«t; 
rsCJ3.a*nalts  s*  ainiiwn 
•ndi 

if  rsCJl.srofRaO  ■  2  than 
basin 

a  ja  rsCj3.sr2RaOcosti 
rsCj].aanalts  r*  i»tn»mrwt 
•nd 
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If  '>r«Cj].srftaO«t.^r^A  <»  and  < r»£ jj.at-atu*  *  2)  th*n 

if  r»£j].d*l*t#  ■  (»  fJi#n 
b*«in 

n^(j].«mfRsO  t*  >-•£ jl.’^rofRaO  ♦I; 
if  n«CJ].w‘«.i«il  •  v*»r  th#n  rnt.i].«t4to«  :■  <9t 

assum 


*ms  <’rinir.m> 

PROCEDUfiE  aiNITROi 

war 

J*  aarliar  :  intaavri 

PROCEDURE  aSSUHEi 
baann 

if  baCj].«tar(i«  ■  2  than 
Baain 

if  c»«CJ].M'r>fRaO  ■  2  than 
baain 

baC.O.w3RaOcoat.j»bat.»1.'a»3Ranci»f«  50*JJ  >t 
brdaaam.  s«  brdaaant  ♦  b«CJ3.ar3RaOco«t; 
blulaft  t*  blulaft.  -  h«t.» ].«n?P aOcrwt 
andj 

if  baCjJ.arofRaO  •  1  than 
baatn 

baC.j].>!a*2RiOro*tj«b«it.i3.yr2RaOro«t*<  58*JJ  >; 
brdMiant  »*  brdtaant  *  bi»t.i3.wn2RaOeoati 
blulaft  }•  blulaft  -  h«f  j3.y»*3RaOco*t 
and 


<  anatma' 


oaain 

asrliar  s«  'utrar  -  ti 
for  i  i«  l  to  rnjnofaaaiana  do 
baatn 

if  <'baCJ].':irRaO'«it.^rt-^  <■  ^nrt  i baC i 7. atatus  ■  1)  than 

if  baCjl.dalata  «  a  than 
baain 

bsCJl.atatua  •«  2i 
baCjl.srauail  :*  b«C.i7.«rs*^ail  •  1 
and* 

if  <baC jl.'^'RaOar.^rts  aarlian)  snd  <b«Cj]. status  ■  3)  than 
if  baCvil.dalata  ■  R  than 
oaain 

baC-^T.'-ravai  1  ?»  bat '3.’:<r^«/ai  1  *  ti 
if  baC-j i. wrnfRaO  ■  R  than  baC-il.aanaltv  :■  R» 
if  OaCj].«r*OfRlO  »  '  than 
baain 

a  ;«  bat  )7.  irlPstVoats 
baCJl.aanaltu  :*  loinitnun 
and* 

if  baCol.inhjfRaO  ■  2  than 
baatn 

a  !■  b»Cj],vr2Ra0coatj 
pat  J  l.aanaltw  :a  .Kinimun 


9r)d2 

I*'  <  bsCJ3.\#r^«0«tart.^  <«  atrt  < b«Cj3. status  »  2)  than 

if  bsCJl.d*l«t*  ■  0  than 
brsin 

bsCJ3.^«^fftaO  r»  bs£j3.arofRsO 
if  bsCj].w‘auail  •  ysar  then  bsCJl. status  :■  Hi 

assuM 

and 


sndJ  <binitrd> 

PROeSJURE  INITINTELi 
oasin 

if  i<*ar  «  1  than 
basin 

fro  :•  0*  fbo  «•  01 
frd  :■  01  fbd  s*  01 
frrdo  r«  01  fbrdo  :•  0i 
frrdd  j«  0i  fbrdd  :•  0 
anai 

ro  i«  froi  bo  :«  fboi 
rd  :•  frdi  bd  »•  fbdi 
rrdo  j«  frrdoi  brdn  :■  fhrdoi 
rrdd  t«  frrddj  brdd  »*  fbrddi 
fro  j«  01  fbo  :«  01 
frd  i«  01  fbd  «•  01 
frrdo  I*  01  fbrrto  0i 
frrdd  i«  01  fbrdd  :■  0 
•hdi  <i"itint.al> 

basin 

If  not  <vaar  •  1  )  than 
basin 

if  <radlaft  <  0>  than  raObuOsat£'.«»srl  »*  raob*JdsatCsaar3a2*radlaft 
if  (blulaft  <  0)  than  blubudsatC'naarl  :•  biubudsatCsa*r3a2sblulaft 
'jniform  »■  rsndoa  nod  its 
dauiation  s»  I30aunifom  -  t000i 
radboosatCsaar]  :•  radb'.'dsatCvrar}  d?»Matinni 
blubudsatCsaar3  :«  blubudsatCyaar3  a  dauiation 
andi 

radlaft  j»  r«dbudsatCsaar3:bIulaft  :»  blub«iOsatCvaar3i 
rassaant  i«  0ibassaant  :■  01 
risaant  :■  0ioisaant  :•  01 
rrdsaant  j»  0ibrdsaant  j»  0i 
for  i  :■  1  to  nuaofsystaas  do 
basin 

rsCi3.unitbus  :»  rsCil.atjrlinits 
rsCi3.tuaI  !■  rsCi3.inuantorsi 
OsCi3.unitbOv  :*  bst  i3.a*jrl  iatt  ; 
bsCi3.tual  i«  bsCil.inuantorvi 

if  <rs£i3.in«jantory  >  9)  jnd  ''rsCtl.dalata  ■  0>  than 
radlaft  j«  radlaft  -  <rsCi3. inuantnrsarsC 13. oncost ;i 
if  i0sCi3. invantors  >  0>  snd  'bsri3,dal»ta  ■  0'>  than 
blulaft  i»  blulaft  -  <bsCil. ^nuentorvabsCi 3. oncost > 

andi 

iji"  randOM  i«od  4i 
rinitrdi  bimtrdi 
initintal 

anoi  <■  tnttvr> 
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1 


I 


•  TMt  HOU.UWIN0  SEGHCNTliD  BPOCEOt.iRES  ORf  I'OMRTI.ED  f^O  INSERTED  IN  THE  MAIN 
PROeRfiM  AS  BATCH  IB  USINB  THE  COMPILE  'INCUiOE'  OPTION.  DUE  TO  PILE 
SIZE  ':ONSTRAINTS.  > 


Fi 


SESHENT  PROCEDURE  PRINT  ip^non  :  >i 

CCallvd  o^tionalN.  Print*  «nd-o+'-r#*ar  drci*ion  tunnar^  for  rlaver*. > 
yar 

I »n) « 1  aft.anoifnt « \ «r«>nt .rd^rmt.  :  int.#«af>)«>^oi.id9rt  :  srraw  Cl. .293  of 

PTi 

0  ;  cnari 


PROCEDURE  TURNENO* 

1  ;  inf  war  > 
txwin 

roa  :■  9i  tea  »■  9i 
rob  :•  di  bob  i*  9a 
rba  t*  9a  bba  >■  9a 
rob  :«  9a  bte  :«  9a 
for  1  a*  1  to  nonof*^«ta«w  Oo 
baoin 

if  <r*Cn.*ort  •  'OA'>  )nO 
roa  :>•  roa  •*•  r*Cl].util*ttla 
if  <r*£l].*ort  »  '09'')  ynn  'r^m.oei^a 
rob  :■  rob  p  r*Cl3.util*ttla 
if  <r*[13.*ort.  »  'DA')  ano  Fr^Cll.Oirlafa 
rOa  i«  r<Ja  r^ClI.utiUtt.i  a 
If  <r«Cn.*ort  ■  '08' >  irvS  'r*tn..l»l*f 
rob  a«  rOb  ♦  r*Cl].utiUt.tla 
if  <b*C13.«ort  ■  '0A''>  ano  <h*ri -i.oaiata 
boa  a*  boa  ♦  baCU.uti  l*ttla 

if  <b»£n.«)rt  »  '08' >  ano  <b«tn.d*lr»» 
bob  i«  bob  buCn.utiUttla 

if  <b*C13,*oa*t  a  'OA'  )  aarJ  'teCIi.aalrra 
bda  a«  tea  ♦  baCn.utiUttli 
If  ib»C13.>ort.  a  '08'  )  and  'b«tn.<3»laf 
bob  a  a  bdb  ♦  bsClI.uMlattl 


a  9)  than 
■»  »)  than 

■  9>  than 

■  9  '  ttian 

■  9  '  than 
»  9  >  t  han 
•  9 '  than 

a  91  than 


anoi 


'  t<jrnand> 


PROCEDURE  OUTPUT; 


r 


PROCEDURE  TITLE; 
baatn 

i'<rttaln<r.'  '  'jhiritalrK  r.' 
"irit,aln<z.'  '  )awritaln<  r#' 
'iiritalmr.' 

"iritairK  r,' 

'••ritalmr. ' 
i«ri  ta  ln<  r . ' 

'•iritaifK  r, '  ■  ,t 

"irif  in<  z,  ‘ 


' 'ii>-»i»aln<  r.  ■  ' 

' 'iwritaini z.'  >a 


■  Awia.ioi.  decision  SUnmARV  i  '  < 

I _  I  ■  , 


P'.ivER:  '  .aaraon.  VEAR: 


"iriflm  z.' 
and. 


'ahfr'.tairK  r,'  '  >;ia>*tratn<  ') 
'titia) 


PROi:EDURE  UlSTUn 
Oaain 

writalrK  z.  ’ 


intaaar  >8 

Nana*  Tyaa  ••  .•.■•aCnJ, rama. ■  .«vaCn].  lort.'  ■' 


Intaa 


■  .'aaa 
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Purch***  rat 


"irit.elfKs,-'  o»<^VTon  .;>»t;  '  ,s'w£n].oi*co*t* ' 

^*'**^'**'  C04X:  '  >s 

*«  '  •«MCn].^urlinit)) 

,  ,  12!'*^  'j^^tion  rcnvit  '  >sy^£n].OP<:«sst,ni,-' 

Total  util  u«lu«t  '  .«u«Cnl.utiUTTt>» 
i-ritalrK?,^  '  Jif-ritolrKr,'  -  > 

ClistlU 


PROCeOURE  LIST2<n  :  int..*99r>t 

nor 

i«.««  :  IntrMr; 

D«9in 

'•witolmr,'  N»**<T>^>s  ‘'.*y«Cn3.n*»»>''<’',fu*tr»l.*ort,0')i 

iMia  «v»Cr>].'*mfRaOi 
»♦'  sv«tn}.vr'!Ra0co«t>8  th*n  mt»3 
♦H*  It'  4VtCn].w*2R40cost>8  that*  at»2 
»l«#  ai«li 

ir<wji  .  R%0  Vr-*  of  fi*,0  r*^ 

..  '«■!  -.1...  •.•.•«M..,til..-  Purch«.r« 

writalrKz,'  '  ^•tiritolrKs,''  ' 'i 


RR0CEDUR6  IfWi 

uar 

rt»count  :  intr^ari 
Mf  in 

'«rit*ln<s,'  I.  5VSTEMS  T'.«RFNTUV  TM  INUENTORVj'  >> 
"irivtlmr,''  '  )i 
count:  asu 

for  nia  I  to  nuaof5V»t*iin  .lo 
be»in 

'>tv*Cnl.im'onf.orv^>  and  sy*tn]. del ataaii* '•than 
b<Min 

li-jtK  n>j 
count:*  count  ♦  I 
9rn3 

and: 

if  count,.a»!i  th*n 
brain 

''»"’.r.rln<s,'  ■•: 

'■mitrlnt  s,'  ' ’'jwritrinCz,'  . 

♦nd 


PROCEDURE  NOTIhWj 

uar 

n»count  :  intarrr; 
bmn 

'^iritrims, '  II. 


5VRTEMS  «>OILRPLE  ertJT  nOT  CURRENTUV  IN  INUSMTORVi' 


83 


for  n»*  J  to  <10 

bMin 

if  < sy<Cwl .  inoontjorj^i '>  arxJ  (»v»iifo3.0*J»tJf^)th*n 
it'  »v»Cn3.«r««Mil<«<4«ar  ttwn 
own 

ItstKnii 
count**  count.  •►  1 
«nd 

•tndi 

if  counted  th#n 
orttn 

iMrit»ln<z»'  HONg'ii 

•mit^ln^r*'  "  )iiiirit«ln<r.' 

*nd 

*ndi  Cnotin»*> 

l»R0Ce0Uft6  TOTSi 
0091  n 

•«nit»ln<z,^  ITl.  TOTQL  t»TH,  points  flCCUW-iLATEOt')* 
wnit*ln<r#'  '>* 
if  »or»on**I«Mor«iC  1 1  thon 
b*«in 

iMrit*ln<Zj' 

"(ritoltxzj" 

'tritolMzj' 

mrit9ir<z*' 

#nd 
•Ivi 
o««in 

wrlt^lrKZ/" 

'tnit*ln<t»' 

«rit#ln<  z»' 
i<rit*ln<z»-' 

«ndi 

uritolrKz*'  '  >jw“ir.<t»rKZj'  '  ■> 
itndi 

PPCCEOURE  OlPfiO* 
uor 

n<count  *  int*9»r; 

b*9in 

'<**it»imz^'  I'j.  iweoiNs  Rfco  PRO  lecTs*' >i 
'»rit*ln<z.'  '■»» 
cot '■^*■01 

for  ni*  1  to  nu«ofsv«ton9  <3o 
bMin 

if  '  »ysCn].9t»iuf*2>  »n»t  <■  ?*4«ifn3.-T»l*tci^’'th*n 
if  99«Cn3.^trR»0«t4rt«<»«!i**r  ttwn 
b<t9in 

li»t2<n>» 
count* ■  count  ♦  t 
wJ 

«nd* 

if  count**  th#n 
b**in 

inrit»ln<z,'  ^^ONE' ''j 

iiritolrK  Zj ^  '  >jwrit*ln< z»'  ' 


Svwto*  titn»  OOt  '  ,ro»  )t 
StMt«m  tvn*  OBt  '<POb>f 
?v*t  iw»  0O»  ‘»rtaM>$ 

^Mt«A  tv**  OBt  '  »rt3b) 


SW.#*  tv**  '■»*  '»t>09>i 
Svftt**  tv**  OBi  ■'»boh>» 
t.vM»  riOi  '•toda^; 
Sv«t..*«»  OBt  '.b<^) 


<tots> 
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*ndi 

Pf^OCEOURE  SHUPOi 

y«r 

n«count  t  inf^tri 
bMin 

Mrit»lr*<r,'  IJ.  SHEL'iEO  ft»D  Wj^CTSiOj 
count.  j«*»j 

♦  or  ni*  1  to  oo 

Dirsin 

if  f  *v»Cn].»f-»tm«l  >  or  ♦  th«n 

if  <^\«tn].w^aO«t«rt,t<»«(rar)  and  <  »w<Cn3.d*l*tr^)  th#n 
bdiitn 

list.2<nii 
count* «  count  r  t 
•nd 

♦ndi 

if  countad  tn*n 
0^»»in 

Kritoin^rj' 

ixrit#ln<Zj'’  '  JiuritrWr*'  ' 

•nd 

•ndi  <■  tni'rd> 

PROCEDURE  BUOOi 

u«r 

»  i  intOMTi 

PROCEDURE  COSTS; 

uar 

iJ  »  intr*<*rj 
o*din 

for  ij  :•  t  to  nuiiwf'«'i«to«5  on 
b»»in 

if  '  iy»Cij].orr<«tttl  ^  '  inr  <  jw«r :  j],<^raua»l  <■  'M9r>  r-htn 

if  »'itCij1.d*l<rt»  ■  <9  rh^n 
0*91  n 

'Britain' T*'  Hsnat  '  «s»»Cij3.n«i»»»' 

‘  »*\rtCij].»nrt. '  >'  >> 

'<iritaln<r»'  Total  c**r9tin9  cost*  » 

'  .«v»C  1  j  ] .  opnrotttt  1  ' 

•nd 

•nd 

•ndi  Ccnstf' 

0*ain 

'.irtt^lrKz/'  'M-  ?Ki-*TP-V6PR  PMOfiET  TMPnRMOnW'  'i 
i«rit*ln<  r<  ■  >» 

writrlnc  Zi '  T,-.Tai  Oiws)  Pllnwanca*  l' •■?vtOuo»»t£ii**r]  <j 

'iirit^lni  r>'  Omoiint  trmt,  in  »':'aji«ition«. . . 

**a»rant)i 

"*rit*ln<Zj'  iimy.nr.  '•.••nt  ■••n  inta!li**nc» . 

. a'.isr^nt.'i 

nirit*In<r^'  ia<i»n*.int  *»»nT  -.n  R  and  0 . 

. S'  .rdsrant  -s 

iBri«ln<z*'  'TOff  om  «vi«t.iw*  <.  tnos*  in  inventors 
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CO*t*i 

M  :•  f  t : 

'iirit4»ln<z#'  '  >1 

writ^lrK s,"  Tot^i 

nirit*lrKz,'  £yp«<ct«d  >l9*'*fy9»  (50(i**r.  for  r(#yt  M'mSV* 

bua«»t-CMl> 

»ndi 

orsin 

im/« 

not.inw» 

totsi 

curftOi 

bud* 

•ndi 

B*«in 

tom*ndJ 

if  r«rson  •  »l»s*r«Cll  yi*n 
b«*in 

s*«Oud«*t  !•  r<»dBud**t.il*ft  :■  »■  r«i 

<*»**nt  t*  r«*wtnti  1  *»*wt  >«  r i <P*nt ;r d»**nt  :•  rrdSMnt 


•ls« 

o*«tn 

4w«eud*rt  »■  blut)ud«*t>l<»ft  ?■  blui<H''M»v«  *•  fr»i 
*«ni»«nt  i»  b**«i«*m.*i*#»*r*t  »»  bi tiHWt  jrdturwt.  »■  brd»**nt 
*ndj 

*otoxv( I8«8>i 

writ#ln<'OeCTSIONS  9V  '.r*r^on,'  POR  vepB  •  COMPLETED. '  >i 

if  NOT  (^r%r^'3'  >  th*n 
b**in 

roil «  13.10.' <Pi**««t  "9"  rn  obf*tn  •rint,out  of  dtcisiorvtf "  >t 

15,12.'  or''* 

*ndj 

^utiw 22,14. '<Pr*«s  RETtjPN  to  continu* 
r«4d<d>i 

if  <d*'r'  )  or  <a»''P''>  t,h*r 
b«*in 
outruti 

4*Jtlt.V  14.10.' 

■  >i 

mjiiU  14,12.' 

'  Ji 

r*jd<d> 

■»nd 

*noi  Or.of  ; 


SEGMENT  PROCEDURE  VE0RENO> 

<;E*t40li*M**  4nnu«l  *M*  Minrwr.  Coi*p»Jt»«  th»  4rob«Oilitv  of  i«r  4nd 
•itM*r  di«*l4w«  4diM«orv  to  th*  lAnrir*  for  hi«  d(n:i»ion.  or  iwikM  4 
runaom  draw  to  cowrar*  a«*in«t,  tw  compt.itad  rroeiabilitv  to  -d^eid* 
laar  •v*m.  oecurr*ne*.  Cnrat**  data  ftl*  on  troiro  di«tf*tt4  if 
riawara  dtcid*  to  auit  and  r*ou«*  *an»  *»  a  Istar  m«»*.  > 
uar 
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nM.dIu*  I  invMwrt 


PROCEDURE  UINNEPi 

b**t  :  rl.r'2«bl<b2  :  irttgwr »  (}  j  ch*ri 


PROCEDURE  OECLPREi 
Drfin 

cl*ar«r#*n» 

wtit.<  15*3.'  —  --  -  -  - _ _ _ _ _ —  -  -  - '  >i 

put,itt  15.4.' I 

wti^^  15.5.' f  l'}i 

15.S.' I  !'  ’» 

<njtit<15.7.'l  OS  0  PPSatT  OP  a  TPLI.V  OF  l'  >i 

iHjtit<15.3.'l  OPERflTTONOL  FORCES  IJTTLITV  I  ''j 

wti«t5.9.'l  POINTS...  \':>i 

15.10.' I  !'  *» 

raioxvci5.14.>iHrit«ln<  '  I  FOR  SOME  ‘*€00  '  >*wjtit<S5.14.' i '  >» 

15.15.' I  *' J* 

«Ait<l5.ie.'l 

MtxK  15.17.'  I——.——— _ _ _ _ _ _ _ I  '  > 

*ndi 

PROCEDURE  TIEi 
0#*ir» 

potit<15.ll.'l  ''■>* 

Futit< IS.ia.'t  >'>» 

»^>W<15,13.'1  ...vl  Tig  IS  OEaflREO  ) '  > 

*r»dj  CM*' 

PROCEDURE  HHOi 
i5#*in 

fowx^  15.11  )tmrit*lr<  '  I  ';F*J^It,<65.1t.'  I '  >i 

15.12.' I  •  '■''t 

*utxT,M5.l3.'l  ...IS  DECLOPED  NINNER  i'  > 

*ndi  ■fhiho> 


3**tn 

i»l  J»  ro»  -  Mu  if  '*1<0  ’hitn 
r2  :»  rob  -  bObi  if  r2<0  rjnm  r'Ztmit 
rM  s«  rl  ♦  r2i 

bl  s»  bo«  -  roaj  if  bl<0  bl:«0> 
o2  :»  bob  -  robi  if  o2<0  th*n  bEi^Of 
blu<r  :•  bl  *  H2i 
0*01  ;■  'rop*' I 

if  roiiCblu*  th*p  0«5M«»l«v«r*C21« 
if  '*M>blu*  f  h<»r»  jM^r^rn* 

orolar** 

If  0*5T.»'Mn*'  th*p  tx* 

*iS«  IKPOX 

•ut-xV. 27.20. '<PnMi«  PETUPH  ro  Cor«.xrwj»>'  »» 
riraoi  d) 

*r»d>  rMinf»<fr> 

PROCEDURE  HAVeEMORt 

odP*  »  «trin*»  i  ir»*W8t*«». .don* .t«p» chars 

*l.«M.la.diff  i  inf.i»**rC121s 
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i='«0C60URE  LOGOi 
brsin 


cl««rtcr««ni 


PUtIM  t3*4»'» 

>1 

putit<  13»5»'* 

MM  MM 

0 

WKUrtUffW 

)s 

p*jtit<  13»6»''* 

MM  M  MM 

I3RR 

RR  RRR 

putit< 13.7.'* 

MM  M  MM 

AO  AO 

RRRRRRR 

■*'  >i 

p«jtit<  13«3«'P 

MM  M  M  MM 

AO  A  00 

RR  RR 

*'  )* 

PutitC  13.3»'y 

MM  MM 

AO  00 

RR  RR 

♦'  >» 

putiw  13#10»'* 

M  M 

00  00 

KR  KR 

*'  )i 

p*jtit<l3*U*'y 

*' )» 

Potit< 13«12* '♦ 

♦' ) 

endi 

Cloeo> 

PROCEDURE  HMi 
yar 

>3  :  cMrj  (»  s 
b»«ir» 
lOWi 

«  !■  ♦  Ij 

1^“  th*n  r«dbud9>t.C«t]:>r4«euctwtCfl]-ieee 

*1««  blut)ud«*tCi«]i«blijbu(»wtCMl*10dG> 


^ut.tt.<  I3»l3.'»  ...Ks*«  t»tn  b*rlar^  M  a  r««ult  of  the  ♦" )» 

ewtit<  13»14»'*  diiearitv  between  elaver  operational  ♦' >» 

putit<  13»1S»'»  forre  atrmatha.  i». 

p*jtit<  I3»l6i'p  ♦' )* 

«otoxv(  I3«17  >i 

writalrK'*-  Ra  a  r*a«jlt  of  th*  mar  '  .na»t>»pytit<<55»l7»'*' )» 
putit<  I3*li9»'*  haa  hart  na^t  Mear'^a  burtaet  alaahart  b»  ♦'>» 

»Hjtit<  13»1R»'*  flW®.  e')* 

PUtit<26»21»''<Preaa  PETI.iRN  to  Cont.inye>'  *j 
r«ad(d> 


andi  <war> 

PROCEDURE  UMPLOGQi 
beain 

c laaracreanj 

wjtiv  3g»g»^ '*'»*»»»» '* 

Pt»tit<30.S.'*a*  IJHPIRE  ♦##')» 

putit<  lR*l5*'0o  you  'nah  to  taminata  the  aape  <V  or 

fotoxyt8e>l?'>i 

read<done> 

•ndi  <u(«»lf>ao> 

PROCEDURE  URRHOTEi 
•fmr 

111  :  inteeer »  ijj  s  chars 
beam 

wjtitt  lS.l5»' 

\ 

HI  ;■  100  -  rruoe<diff 's 
aotOMUt  I7«15)s 

writelnt'The  probability  of  war  la  •atioatart  to  oe  '  ' )» 

p«Jtit<22»17»'^Do  you  wiah  a  i«ar  to  araue  '"V  .or  N  .j 
aotoyyi0R>l7'>s 
readi  jjj  h 

if  ''jjjp''y'  >  or  (jJ.,i«‘’V'  '  ».hm 
dxff»p0 

♦lae  diffjplRfli 
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«nai 

t:>AOCEOURE  PUTOLLi 

PTOCOiURE  PUTONEi 

w«r 

!  t'il#  of 

b««in 

with  t*(*wlfil<»''  do 
orain 

t'^*arr*w*ar  »t.r«dli»*'ts  «r<i»llof  r.  it  olul  af  tr«blol  *f  ti 

tr«ww<nti  TawtPont  it&aw»Mht  i 

tr  1  sw*ti  wr  I  wont.  •bi  *a<tnt ; 

trrdwonti  wrdwntitbrdanontt  ■tortianont* 

tnuMOf  ■m>nof«y*t.«*«i 

troai  ■TO*  jtrobi  nrob  itrdat  j  trdbi  wdb  * 

tboat  weeajtbobt  abobitbdat  «hn«itbdbt  aMbi 

tro t aroitrbt ard J trrdof wrdo i trrbdi arndd  * 
tfroiafrojtfrdf*frditf<'*t^»afrr*lo*tfM'^f»frrddJ 
tbof aboitbdt abditbrdoi abrdo itbrddt abrddi 
tf  boi  «fbo  Jtf  bdt  af  bdjt.fbrdot  »fhrdoiifbrdds  •fbrdOi 
twareonttainreontttnrtrtapntrt 
tnlawor>iai>lavor«iti*«dbub«*ttarodbud«»ti 
tblubudwttablubudoot 
tndi 

clost<  i  1*«  lock  > 

•nd*  Coutono> 

PROCEDURE  PiJTTWi 
war 

tonrZfilo  >  filo  of  *v*z9mi 
brain 

r*writ*<  trwEf  t  lo» 'TEHPOi tanroS.  data'  >» 
tanrZfila^  sa  ra* 

»uw  t«nr2filr>j 
tanr2filr»  ja 
r*jt<  tmr2f  i  lo  ’» 
clo»*<t*nr2fil#.lock  ) 

♦ndj  iIrwttiHO> 


Brain 

rjtonri 

auttiiio 

mdj  <rtrall> 


0*0  in 

t  :a  randOM  i-wd  IRIJ 
nanr  :a  *tavrraCt]j 
snallrr  »■  rodi 
lararr  :•  bluoi 
xf  blor<rrd  thm 
brain 

na*r  ;•  *!av<»rof23» 
swallrr  a  blurx 
larorr  :■  rod 
mdj 

*«i aonai 1 or > I ai al aroor j 


89 


ditV  »■  OIU  Ui 

if  <don*«'V>  or  th«n 

bMin 

cl»4r«cr««nj 
«otoxv( 19<ld)i 

writelfH 'Do  wj  to  rr-u«*  ri^st  fror  thi«  mm'  u 
SOtOMVC  19.11  'li 

xw'UM'  »t  a  latar  tt***  <  v  or  H>j  "'>» 

r«ad<i«n>j 

If  t *!»»•' V'  )  or  ftmrn'M' )  thM  .••n.slU 

xtAinflMtvtrtjot 

«<it<  v*ar*nd) 

•fnd 

*ls« 

Mat  i>h:' 1  a«it  af  «1  so  j 

if  <  iMreor»t«'<<' J  or  o<arcort»^V' )  thor 
Niamotoi 

if  Ml>(jiff  tfwn  (Mr 

f  Ma«6aaar> 

bosin 

Mtnnarj 

Ma«e*«ar 

C'stoar»fwi> 
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<‘'njc  cm  I  m.iTkta  ceewpiiTcn  lece  n»c  'v%uot»  en  '.►•n  TMororcn  tw)  tub  mqtm 

PWWWM'ps' BOTCH  2  LiSINB  THE  COHPIl.gR  'INCLUOE'  OPTION,  DUE  TO  PILE 
SIZE  CONSTROINTS. > 


SE6HENT  POOCmjOE  UHPIREi 

<01  low*  9mm  to  altor,  4*l«t«  ^  *d(l  Vi9rjmi9  to  wlwt 

01«o  ^orwit*  UNPtro  to  «ltor  wl«v«r  budoot  Piour^*  «id  probability 
of  war. > 

PROCEDURE  WRITESVS<  J  :  iota  "ar  >» 


PROCraURE  PORTSi 


PROCEDURE  PORTli 


PROCEDURE  PORTlOUNi 

boom 

writalrK '  D 

yrofRaO>j 

writ»ln<  ■'  F 

yrlRaOco«t)i 

writalrH'  P 

yr2Ra0eo«t  i) 

writalrK'  9 

yr3Ra0co«t>i 

writaIrK '  H 

. . .  «r«CJ  1.  yrauat  I  * 
ardi 


Vr*  M.0  cworl  pt-ad  at  *aaa  atart. . . . '  ,r«t J  3 . 


Pirat  RtO  vaar  coati . 

Saro)>»d  RtO  y*ar  coat: . raCJ 3. 

■n^trd  Rl^n  «aar  coat: . ....*',raCj3. 


Parliaat.  mwr-  available  (afXar  R  and  D)t 
<’aart.laox> 


baoin 

writ^lni ' 
'<iritoln< ' 

If'  <raCj3.5ort 
writoIrK ' 

If  ( raC jl.aort 
i<rivtln< ' 
xf  xra£j3.aort 
writ*ln< ' 
if  <raCj3.aort 
'«rit<tln< ' 
|•a•lt#ln< ' 

. ' ,raC j  3 . yrRaOatarta ) > 
partlaux 
and* 


•SVSTEM  ',J  )* 

0  Na«iet.....' ,rafJ3.nan*>>writ*ln* 

'n0'  >  or  <'ra£.'3.?ort  •  'oa' >  than 

8  Tyra: . Off<»nai»xr  Swaten  Waaron  Tyaa  0' >» 

'09'')  or  ^rat-il.«ort  »  'ob''>  than 

8  Tyra: . Offanan^a  'Swatan  Maaron  Tyaa  8'  )* 

'00'  )  or  ''raCjl.anrt  «  'da'  >  than 
8  Tyrat.....Oafarax»Aa  Swat^  Haaron  Tyna  0' )* 
'0B'>  or  '"'“•IJl.aor^  •  'db' )  than 

8  Tyrai . Oafanai'.'a  Swatan  Haaron  Tyra  8' >* 

C  Pirat  year  PtO  can  atartt. . . . 


<rartl> 


PROCEDURE  P0RT2i 
oaatn 

uiritalrK '  I 

. ' ,r*Cj3. invantory  '* 

’writalm '  J 

S'  .roCJI.Miacoat)* 

writalm '  < 

*'  .rtCj  l.iWcott ) « 

writain^ '  L 

. ' ,r*Cj3.utila;* 

nirit*ln< '  H 

. '  ,r»£j3.rurliKiit  jiwritalo 
and* 


ijmta  in  imantory  'at  arra  atart): 

Ocpy’axtion  coat,  'rar  unit  ■: . 

Orarat  ina  coat  •  mr  ijnxt): . 

'Jaiua  xn  '/tila  'rar  ijnit): . 

Maxiovr  *nn*jal  ••.'rchtaa  mta: . 

'rartZ:^ 


oaain 
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«nd< 

b*«in 

c  l*«rK  r*«ni 
»art,* 

«nai 

PTOCEOUfte  WIMTSVSi 


^^nrl  «•«•<«> 


r  t  ch«r»f  t  intTMT} 

PftOCSOURE  PARTI i 

PROCaJURC  PARTJAUXi 
bMin 

rofR»0)i 

writ#lrKr«'' 

rlR40co«t>i 

o^'it^lrK  2j  ' 

r^RaOcost,  >i 

'•3R«Oco«».  >  t 

. . '  •rsCt'l , ^9vai  1  > 

*ndi 


Vr*  R&O  coi«»l*t.<wJ  »t  aama  start...,. 'trsCfl.v 

Pirst.  Rt.D  . ........S' .rsCf^J.v 

Si»c(jnd  RfcO  '^ar  costt . . . s',rtCf].v 

ThiiM  R*>D  «*»•  co«t:....r . 


Earli#«t  <^ar  »failabla  <aft*r  R  ano  0>t. 


b#«in 

writ*ln<r»'  SVSTEM  '.f>$ 

wrlt*ln<2«'  Hamt.....'0rsCf‘l.nam«>t 

1*'  (rsCn.stjrt  •  'tyti'y  -v*  ^r^fn.srirf.  •  '<ya'>  thtn 

. Off^rwiw*  Haaror  Tvwr  A' >i 

if  <r«Cf l.fnrt.  »  'OP''  <3r  »  'oO' '  than 

i<ritjflri<s,'  Tvp<*s . Off<*»»*ii^  M*a^qn  8' >» 

if  <rsCf1.«ort  »  'OA''  or  <r«Ifl.«or*.  »  'da'  >  than 

i«rit<»ln<r,'  Tvrirt . 0*f#r«iw*  H»iron  Tvr*  A' >» 

if  ',r«Cf].«ort.  »  'OB'l  ar  'r<Cf3,«flr»,  »  '«lb' >  than 


'  »r«  C  f  3 ,  art* )  i 

rartiaux 
andt 


Tv»»t . 0*^*n*i«/*  W*aron  T'^r*  0'  >i 

Pir*t  vNrar  R&O  can  «tarit; . . 


'mar*.l7 


PROCgOURE  PART2i 
o««in 

iHTitclntr#'  "ntv 

■  .mCf  3.  inwamcr^  >j 

'  .r*Cf  3.AOeo*t.  >1 

inrit»lmr«'  Opar>. 

.r*tf3.0Pco*i;i 

'■irtt#ln<z*'  "aliA 

'  .r*Cf3.ut,il'»^i 

writalrHs*'  rtavii 

'  »r*£f3.n*jrli«it.  )ii<rit*lni 

if  r*Cf3.ia*l#t»  •  3A  than 
daain 

"<rit»ln<r»'  '  >i 

iiirit^lFH  r»' 


"ntt«  in  inu^rrcrv  (  *t  aama  *tart>t. 


cn^r.  •  i»#r  ijnit)f. . S 

0<»ratin*  co*t  'r*r  ijnit)i . . . J 


•'alw  in  <r<»r  unitJi, 


rtaviinun  mnfitl  njrrnaaa  ratal. 
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«VSTEH  HfiS  SEEN  DELETED  Pf«3H  THE  SflHE 


»ndi 

ifndi  <^«rt,2> 


b**in 

<:l»ar^cr**n» 

ir  -jou  'a*«lr<?  ^  hard  cor^  ^  all  i'^^t.****  t-o  0*  uaad'  >j 
ru%it<  1S<11<'’  in  th*  rlaw,  antar  "P"  for  mnt-out#  otharwis*' )* 
ryt.it<  13,12,^  rra««  RETUPN  •ftit  ftacif  to  laaro.  B*  a^t««a  that')# 

rutit<  13*13#'  rrihtoot  Mill  taka  5  to  J«  i**ins.  and  aav  not  ba' >* 
autit<  lS#14#'  int<*rr*.irtad. '  >; 

raad<r)j 

if  (r  ■  'r')  .^r  <r  *  'P'''  than 
for  f  :«  1  to  nunof4<Mtan«  'te 
baain 

aartl  iaan2 
and 

andi  <;mnttvs> 

PPOCEDUPE  PRTCHOICEi 
oaain 

claaracraani 

r*jtifX28#l#'»»n*»»»*»M»a»»»a»iwt.iH»»a»a' 

autit<28.2#'a**  IJHPIRE  INSTRUCTIONS  4**' )s 
h»jtit<29#3#'»»»mMi>*»iiMa!P»»*a»a.a.naa4a'  >» 
rutit<31#7#'*  Printar  Status  ♦')! 

rutit<  10#I0#'Entar  tha  nunhar  eorrasmndina  to  currant  arintar  status  s' 

autit< 14,13. 't...RS232  UNIT  attxhad  and  conftsurad  so  racasua  data'  >i 
a«jtit<l4.l3.'2...PPPLE  3II.EHTVPI-  WIT  attaehad'  >» 

a*jtit<  I4,i7,'3. .  .Prsntar  aithar  not.  cnnnarrao  or  not  of  nation  tuna'  ); 

setoxy(70>l0)i 

raad<artr)# 

casa  artr  of 

1'  ;  rawrita  <2#'.RS332' '*» 

'2'  s  rawrita  < r#'.SILENTVPE' ) 
and 

andJ  'arrcnnlca) 

PROCEDURE  SRONSEi 
war 

i  s  intasar jchoica  s  charjchackf la*  s  onoiaan* 

PROCEDURE  DELETE i 
'.^ar 

j  s  intasarinjitflaa  :  hoolaansd  s  char; 
baain 

for  j  :•  1  to  ntjnof sys»  ans  do 
basin 

auitflaa  s»  falsa; 
raraat 

Nirir.asvsi  j 

•utit<5#l7#'Ent.r»*  nna  -if  thr  =hi.i.OMlNR  omonss'  ■; 
a».rt,it<3#19#'fl.. .Oala»»  disalivad  ‘•yatan  and  ads^anca  •asa'  >; 
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3 


g 


4 

»  *, 


wjtit< 5.20» '8. . .!5<3w*nr#  i»*?*  w».t>vs*;t 

■  ' 

PUtTt<  3»ai  .'C. .  .Quit  i1»l»t.4fjrv9''  's 

r94d<d>« 

CM*  <1  of 

:  biMio 

r^f  j2.i3*l*f.»  :» 
r^CJ].^«u«il  :■  399j 

4nd; 

'C't'c'  ! 
ot>wn«isv  n*lp 
•nd 

omil  ^itfls* 

•nd 

•ndi 

PAQCEOUftE  CHECKRAQ(  .»  :  IntM^r^i 
‘-•ar 

kt  should  :  int*«r»<»  :  chart 
b*4in 

k  :■  8i 

if  r*Cj].'!irlRaOco<»-  >  «  th«n  k  :»  1; 
if  i~»Cj l.^tr 2Ra^o«t,  >  8  th*n  k  i»  2j 
if  r«£j3. wlRaOcost  >  8  th#n  v  }« 
if  r«£j].w*RaOstart,»  >  0  than 
b*«in 

should  J*  rsC  j'l.':<rRsO«t.3rt.s  ki 

if  not,  (should  ■  rsC j].w*auai n  and  (rst jl.dtl*r.#  •  8>  than 
bootn 
•ut.it< 

'  )i 

m.ttiU  1.18.'' 

'  'i 

p»jt,it,<  1,19,'' 

'  ^  s 

atjtiU  1.20.' 

'  )i 

•utiiU  1.21.' 

'  >J 

soiox^5.17>j 

'<irir.#ln< 'Th»r»  i*  an  inc«n«irranry  in  vour  RW)  marmrttr*.  Vou 

r  aarl  iosT,' '<j 

?Ot,«w<  3.1R  >» 

isrir.#ln< ''a"  avail  ael«  to***,  not.  sUom  for  '.k.'  --105  of  RfcO  b*oi 
nnina  in  vr  '.rsCJl.-srRaOst.art.a.', 

••.'tiU  17,21  »'Rr»a«  RgTiiRN  »o  ’*orroei  »sra(»»t.*rs..  -i 
r*i»ad<  a  ■  j 
rh^rkf  1  30  •» 

♦nd 

♦nd 

♦ndi  ■■':hrr»'RaO> 

PROCEDURE  ULTERj 

van 

j  !  infowfr »d  :  ':har>«u»rfi »•  ;  hoolrani 


PROCEDURE  PdROHETERi 
van 
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■K 


which  I  ch«rihu(»  j  iiuewrinan*  »  <»ri»irwi 

PAOCEOUflE  HAVeE3j 
o««in 

c«M  Which  of 

;  b««in 

90t<»n«<5<t8>2 

wr*it.^ acwi.'i«xtior«  CMt.  W*  urtiti  »' >i 
r^«dln<nu*H 
>*»Cjl,*wco«.  j«  rtjm 
«ndi 
»  tW9in 

90toxviS*18>s 

wrtt#<  'E«»#i»  ow#i-»ttn9  co*t  until  »'  >i 

r*«dln(rwj*k>i 

•^tul.oneowt.  i«  lytmt 

i*»CJ1.owroitiii  :■  rwCJl.oncoiKt^CJ].  inuontorv 
•n<t» 

'L't'l'  »  bMtn 

90i*.fn€>tt  %t8>i 

writ4<  "Epuor  otil  ualu*  tutr  uniti  ')s 

r^«dln<nun’)» 

niCJ}.ulil«  !•  numi 

nsCJl.uti l«tH  j«  f«<CJl.util»T5Cj3.inu<ntorv 
<nd< 

'n'.'m'  T  txwln 

«OtOMV(S»18>> 

writ*<  ^Entwn  MhtiMun  annual  iMjren«M  r«t*t  ' )» 
n*«dln<nun)i 

•ndt 

oiharwif*  h9ln 
•nd 
*»«* 

P80CEOU8E  HOveEEi 

B<Min 

c*i*  which  of 

'fi'.'f'  :  b*«in 

«BiaxvC9,i8->> 

wr’»-*< 'Sn»«r  2n<j  RiiO  wean  cow  *' >i 
r*e«dln(  ou«>t 
raC j3.wr?Pa0coiit,  ••  n>m 
#ndj 

'fl'.'w'  j  bewtn 

«0lO}Ctf<5*18>i 

"triT-wt  'Ehtwr  pj^  wear  co»M  *'  >j 
readlrWouwu 
rat  I  ].wr38%0coei  ;■  rwjw 
endi 

'H'.'h'  I  oeein 

•oiokw(9«1S>* 

wriie<  ■'Enter  -^ar  awaien  la  ftrsi  euaileoie  for  oner 
readln<nu<».)i 

if  nun  ■  1  then  rat  i].  jt..»tya  :■  0 
el«e  r«t.j1.anMja  ;»  i; 
naCjl.wriweil  ?■  m.)** 
endi 

'I-'*'!'  1  beein 


units  in  tnu^nterv  st  start:  )? 

r<r4dln<n>H«>f 
rsCJl.inucnterv  :•  nuns 

rsCJl.mtrestttf  :•  rsfjl.orcostttrsCj]. inuantorv* 
rsCJl.utilsttl  f»  rsCiJ.iJtilsarsCJ]. inwantors: 
•ndi 

oth«n«is«  laaiibaS 
and 
•ndj 

PAOCEOURE  HAVBEli 

PROCEDURE  HPVeE4< 
uar 

rick  t  char: 
b««in 

90tom<5«18>i 

•«rit*ln<  ^Salact  svstan  tan*:  ^ 

«»rit#ln<'  1.  rtO... Of fans»*»a  ^»an4n  Ti#Pd  0' >i 

«(rit#ln<'  2.  OR...Oitf*n*iu(»  w*anon  Tsr*  R-' )i 

writ*ln<^  7.  08. ..Offanst***  W*ai»nn  Tun»  8' >J 

Hrit«ln<''  4.  .  De...0»f«nsiu»  Haanon  T<^  B' >i 

raatKniek): 
a'Jtxt<5*18«‘' 

**utxt<3*19»' 

•»jtxttS.28»' 

au».xt<5.2l »' 

•*jtit<9»22^' 


cas*  rick  of 


t 

rsCJl.sort 

!■ 

'00' i 

'2" 

: 

rsfj  J.sort. 

•  « 

'00' » 

• 

'3' 

s 

rsCul.sort 

S« 

'OR'i 

1 

rsCjl.sort. 

•V 

'OB'S 

othrr^ixs*  hair 
•nd 

andi  <ravtia4> 


basin 

casa  iinxch  of 
O'. 'a'  :  basin 

^t.oys<4,x8it 

iHrita<  'Ent.rr  na**  ssatam  naras  '  >» 
naartln*  nanr  >» 
rsCjI.nara  :»  nana 
and: 

''B'.'b'  :  laasbar* 

'C'/'c'  t  barm 

sotoxs<5«l8>» 

'xrita< 'Enrar  r^ar  R&O  is  to  start  <  xf  nacassars-*: 


raad*n<  ni.ir 

rsCj].'#4la0starts  :■  oun 


Vl^ 


I  b*«in 

<iot.oxv< ?'»<«’'»  at  lant  «t«rt  irtor** 

'•JO  'J 

r«CJ3.^rofRaO  i«  'h;** 

4n4i 
I  b«in 

'Ert^i^  l«t,  ft*>0  '^»»r^  co«t:  »  >» 

r»tj3.w*lB*0eo»fc  t»  nut* 

<mdj 

othvr^is*  <••<^•2 


b*«in 

i 

1  *IS*' 
mjti%H*lS*' 

t 

Mtit< 

li 

I  *21  *' 

(^•dCMhich)! 

»n3r***^ 

b<«iri 

for  j  }•  1  to  17  do 

cht«*fl»*  *• 
rowoOT. 

hiritr«vs<  j  >» 
if  r«CJ].d*l*t.*  ■  99 

Mojn  . . 

13,17."  . . . 


^utxt< 13.18.'*^  9VSTEM  HOS  BEEN  OEUETED  FBOH  TV€  SPHE  ***' ) 


13»1 9, 

.:!wrKfla*  ;■  Mmiou  M«janr*  MW 

«.it.iM  13.71.'  PCTLiRN  to  wsvanco  MW 

nt9d<4> 

«lf« 

'^',",r,.5..7,'.««-  ■»'  ••» <»..I0-..-  >. 

Witxt<  18.21. 'C...Ouit,  brr<m\r»  * 

r<»«d<d..’» 
caw  d  ot' 


97 


'B'.'b'  t  O^tn 

ch«ckft«(X.i> 

4fMl 

'C'.'c'  t  b*«in 

ch*ck<^’»*  »• 
chtekft4(X  j>i 

if  ■  *.rv*  tn*n  ffxxU alter) 

end! 

otherwise  hele 


end 

until  cheekfla* 
end 

endj  CaU-er) 

PMCEOUPE  AOOi 

uar 

Jjkjoun  :  inteecrinane  »  strtrejd  »  chari 

PAOCEOUftE  PARTI  2 

PROCEDURE  PtlXli 
eeein 

rsCil. status  t«  Bi 
sotoxwi  t«9)i 

uriteln(‘'  Pir«t  wear  RW)  can  start! . 

. . . ' (hsC J 1 . wrRaOstarts > I 

rsCjl.srofRaO  »■  hue* 
sotoxwt  t«E>2 

wrtteln^'  'iV-*  RtO  eoneleted  at  sane  start.i...'«rsCj3 

wrofRaO) 

endJ  C»'tnn 

PROCEDURE  PfiRTlRlJXj 
war 

•ick  I  Chari 
besin 

eutit<5»t7.' 

'  >t 

sotoxs<5»l7>j 

writeliK 'SELECT  SYSTEM  TVPEi  '>i 

writelni'  1.  OR,..0Pf#rsiue  Meaeon  Twee  »'■>! 

iwitelrK'  Z.  OR... Defensive  Mearen  Twee  «'>» 

writelnf'  3.  OR. . .Ofeenev^e  Meeeon  Twee  8'  >1 

wrireln< '  «i.  OB.  ..Defensive  He  aeon  Twee  8')» 

readieicvii 

e*jtit<S.17.'  ') 


eutitO.lS.' 

eutittS.lS*' 

eie,it<3.20.' 

e*itit<5»21.' 

case  eick  of 
'  1'  s  deem 


'  > 
'  ) 
'  > 
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r^Cjl.Sor*,  »•  "00''! 

*OtOX^  t«4>j 

uirtn»ln<'  T<^i . Off«n«iv*  H»aPor*  T^<f#  A 

«n4i 

'2'  : 

s»  'OA'; 

SOtOXVC  l«4>i 

. D9*'«ntx‘^  A 

#«rJ* 

'3'  1  bMin 

r^C.n.^ort.  t»  "OA'* 

4etoxv( t«4>i 

Tvm»t . Off*n«iw*  H*«w  T*(«r  8 

•n<l» 

*'4'  t  b*«in 

r«Cj3.50rt  !■  '0B'» 

«0t4KM(  t«4)i 

Ty»»t . D*t'«n*iw*  Heapon  T^<p*  8 

ot>Mr<«ts«  h<flp 
and 

#nd» 

fOttn<v(  till 

^  h€W  5V8TEH  '  ,k  >t 

Putit<S»17»' 

POtoxvC 

wrii*<''6r*t»r  rt«w  rtappi  '  ft 

rp*dln<  r»«pp  »i 
r«C>i].rt«p*  i«  nappi 
POtOKM  I«3)i 

wriiplrK  '  Nwipt . 

parr.iauxi 
iKJtoxw<  18.17'>i 

writ«< '6nT,*r  upar  RWJ  ».o  'if  no  Rtf)*  *nt*r  8)?  '>» 

rpadlm  ou*  > i 

r«tg].'rfrAaO»t.srt.<  t«  rn/mt 
if  nup  ■  8  th*n  filtl 
«i4P 
t9««ln 

fotovy*  I  ,3)1 

iHrit.*ir<  '  WS-0  can  . 

'  jr«Cj3.'p4iaO«tarT,5  .<•, 

ptjtiri  ?,17.' 

'  >1 

»0t05<V<  I0»l7)| 

writ«< '5nt#r  isrn  ft».0  <:oi«p\p».pd  an  oanip  tr-am  tnoroallv  8)1  '  ft 
roadln<r*jm>i 

if  nti*  ■  8  thao  raC l 
«1-M  i~sCj3>sianu«  i«  2* 
i^Cj l.'^mfRaO  i*  numt 
‘aonox<«<  1j6>> 

iiH"in*ln< '  Vr«  RnO  complanpo  at  aama  »tart.» . . . '  »r 


99 


•ndi 


«nd 


PROCEDURE  PRRTEi 


PROCEDURE  FTU2* 

haain 

raC  j  1 .  wlRaOcoat 
aotoxvi 1<7)* 

$« 

»a*italn< ' 

.wlRaOco«^>t 

raC J ] . xr2Ra0coat 
aetoxvi 1*8)* 

s«  nuni 

witaln< ' 

Mtn  ^  p.  .  n  . 

.  wERaOcoaDi 

ra£ j ] . ar3Ra0coat 
aetoxai  t«8>2 

:«  nij«i» 

iHTltalrK ' 

.w3Ra0coat) 

and* 

fftn2> 

if  rsCjl.<#*R«0«t«r*ts  •  i*  th*n  fill2 

fU* 

t)*9tn 

'  )j 

mritM  '€nuir  Ut  RW>  <mw  crvtt.i  *'  >» 

('••tflninuM)} 

r»Cj].vrlR«Oeo«t  !•  numt 
wtoxvi  t»7'>i 

writ^inc'  Fir^t  WO  -^pir  co»t* . »'»r 

'  «CJ].w*tRaOco5t^j 

^otit<3»l7p' 

'  )i 

99tOX^  tl9»i7>» 

u(rit*<  'Ehi^r  End  W.0  war  coat.i  *'  >j 
r*adln<nu«i>i 

nCJl.wERaOcott.  :«  nun* 
iOtOirni  i.8)» 

i'«rii*ln< '  ■^•roncf  Ri-O  war  C9*t< . F'»r 

aC^^l.wERaOcoar,  >i 

r*jt,iT,<3,l7.' 

"■  >1 

aotoxm  I0.l7'>* 

iwivK 'Ehtar  3rd  RHO  war  coat:  #'  '* 
r#aflln<  rnjn  »* 

raCj]. w3Ra0coat  ;»  nun* 
dotox^  t  .3  >1 

mrir.alrK  '  Third  ft»<0  war  coat:. . »'.* 

aC  j  ] .  vrSRaOcoaT. ) 

and 

and*  ^'narrE;' 

PROCEDURE  PRRT3* 
oa«in 

aut.it<3»i7f ' 

'  >* 


aotoxvi iRpt7>» 


mritM'Ent^r  i*  finr.  for  or«r«tiom  ') 

roodln^nuM)! 

r«Cj].^4W«tl  !■  ruAt 

‘WtOXV(  l«t0>i 

«»rxt*ln<‘'  Sarlioot.  «#»ar  tvoiliblo  <»fMr  R  and  0)t 

. . "  (TsCJ ].  1  >1 

•utit<5»l7*' 

'  >1 

«etexv( 

HiritM  'Emor  units  in  inuortor**  at  start!  '  )t 

r«adln<nu»>« 

rsCjl.iniMntorv  !»  numt 

aotox«(t«U>i 

t<rit#ln< '  iJniM  in  inwantorv  <at  aan*  «tart>i . 

. . ' »r»C j 3 . i nunntoru > j 

nutit<3*l7»'' 

'  a 

aotr«v< 

t<rita<  'Entar  acsuiattion  cost  r*r  unit!  *'  >t 

r«adln<nun>! 

rsCJ 3. oncost  i«  nunt 

seto9n«(  l«t2>i 

writ#ln< '  Resutsttton  cost  <p»r  unit>!.. 

.  t'' (rsC  J  3 .  rtOcost  > 

•ndJ  (rart3> 

PROCEDURE  PRRT4i 
t»««in 

rutit<5»l7.^ 

'•>$ 

SOtO)ry<  t0*l7)i 

writa<  'Entar  orarstins  cost  nar  tjnit!  s*  '» 
raadln(nu«)! 

/nCj3. oncost  !■  nuAi 
sotoxvC 

arxtaln<  '  OAArstina  cost  ( nar  ijnit >! 

. J' *rsC J 3 . OPcost > I 

•»jtit<5»l7«' 

'  n 

sotoxvi  ie«17')| 

'«rita< 'Sitar  util  ualua  aar  laiiti  '  >» 

naadln<nuA>i 

rsCJ3. utils  !*  nuAi 

SOtOXS<  l«t4)} 

writalfK'  "alua  in  utils  iasr  'jnit^i . 

. . ' «rsCu  3  .uti ls)j 

••jtit<3«l7.' 

'  ■)» 

sotoxsi  10.17  >1 

■rtTitai  'Entar  onurrmim  annifil  a..ircn»sa  astai  '  >» 

naadln<nuA>! 

nsCj3.a«jrliAit  !•  mjmt 

sotoxsf  l*l3>i 

niritaln< '  MaxiAOA  annual  "jpenasa  rttai......... 

. . '  .rt(j3.A«jrliAit  >iwritaln 

and!  'Asrr.4> 

Oasin 

tor  j  !•  18  to  30  oe 


CNPCkflM  i* 

k  i»  j  -  17* 
cl««rfer««nf 

»«rv2a 

•«rt3a 

pmr^i 

ci^kfl**  ;«  trt«»» 
ch«ckft«0<J> 
until  cncck^lvn 

nuMO*'SMt««>s  t«  *■  lap«iCj].n«n*ltv  t« 

r«CJ].d*l«t*  i*  0ar^tJl.ope(»tt.t.l  »»  rnC-il.oncott^f^Cul. inwntoTMa 
r«Cj].util«ttl  t*  inwcntorva 

|•utit<  10«17«^  Oo  MU  uivh  to  croate  another  «v«ta«?  . 


autit<  19«13*^ 


<V  or  M> 


read(d>J 

if  <d  •  'M' )  or  <<t  ■  •'n'>  than  aKit(add> 


Cadd> 


PmCEOURE  eU06ETj 

uar 

ii«g«k  :  intaaara  tkjdfla*  t  isoelaana  %  t  chart 

PTOCaXJRE  CHflN6Ea 
t»a«in 

rutit<  ■“  '>» 

rutit<  l*17»''  '  >» 

p»jtit<  UlS."  '  )t 

aotoxuC  19*16)1 

"<rita<  'Enter  year  for  ohanee  <Then  areoe  RETURN >t  ^  >i 
readln<ii)t 

if  < ix>20>  or  <  ti<l )  then 
beein 

eleareerveni 

evtit<2e,l0,'VEOR  MUST  9E  IN  THE  RRMSE  (l-2e>'>» 
eutit<27.ll»'<Pre»t  RETURN  to  Continoe>'>t 
read<5»i 
exit<ehan«e> 
endi 

eoto)nt<6«17)(  _ 

iMrite< 'Enter  new  budvet*  without  deciMle  (Then  are**  RETURN>r  '>i 
readln<J)i 
redbudfetCiil  :•  J 
•ndt  Cchanee) 


beein 

oudflae  «•  filoet 

rereat 

cleareereeni 

ihjtitOl.l.'BUOeET  INRORMOTION' >t 
«Matit(20.3*'VEflR  RMOUNT(f> 
for  li  »•  1  to  10  do 
beein 

j  t«  ii  r  i9t 
K  :■  ii  r  4i 

eeto)(e(23*k  >t  xiriteiii)! 


QMOUNT<  s>')i 


«otoxs< 32<ir )*  ){ 

«otoxv<49«k  >1  •irit«<4>i 
«eiox^«<S4*k  >>  wr*it.«<r«dbud«»tCJ}>j 
•ndi 

Putm26»l8»'<Er»fc*r  "0"  to  mak«  n  chan*r>')i 
"0"  to  njit>' '>i 

*otOKv(38*l8>i 

r**#  «  Of' 

‘Q't'*"  I  budfl*«  :•  t,ro*» 

'C','c'  I  ch4»«*n 

ot>Mn*i4#  h*l^ 

«nd 

until  budflMi 
blubudwt  tm  i’«dbu<iwt 
•ndi  <budwt> 


PMkCEOURg  S^CTj 
bMin 

el*ar»er««nj 

injttt<l4.2,'  PROa»TU»TV  np  HPB!  COHP».«TflrriOH  OPTION  ')i 

»utiiX14«5*^  Th*  «nnu*l  nottibiltty  of  *  vor  i«  ' 'tt 

nutit<  14«8«'>N^abili'f*ieallv  bv  a  nandon  draw  whoaw  tnrwahold  '>1 
»uttt<  14*7«'ualu*  ia  baawd  on  tna  «uMnttuda  of  diawaritv  b*t,i«i**n' )» 
rutit<  14»a«'rlawar<-'''  total  adju4t»d  utilttv  rtauraa.  ')* 

nutit<  t4«l0«.^  Tha  unwir*  naw  •lart  to  ooarrtda  tha  aboua  '’>* 

nutit<  Hflij'eonnutatton  ««tnod  and  be  «.itriad  annuallw  at  to  '  )i 
wutit<  14»l2«‘"wnthar  tha  war  #»«»«,  it  ♦.©  taka  rlaca.  '■)i 

aotitX  14,18,'  9XmttX  <V  or  M>  »  '  >i 

totaxw<  48, 18  )traad(  warcont '> 
andt  tala*rt> 


batin 

♦'or  i  »•  l  108  do 
batin 

claartcraanj 

•utit<30»3,'*  Swttant  Rauiaw  ♦' >» 

»utit<7,7.'l,,.emwta^l»^  d<Kault  waaron  twttan  budaat  riranatart' 

auttt<7,8,'2.  fAdd  naw  tv«Taia»' >» 
autit(7,ll,'3...0alata  a  twttaa' >; 

p*jtit<7,i3,'4, ,.8ro»i*«a^81tar  annual  budtatt  t'or  all  tana  i#aart'  >i 
nutit<7,13,'!S, ..Elact  to  cnntml  ’ha  annual  pntvbabilits  of  mar*  >» 
n<jtit<7,l7.'8*..0^.ain  •nintjjtjt  of  all  tana  tyttant  and  naranatart*’ > 

nutit<7.t9,'7. ..Otjit  Unntra  Sartion  and  baain  tana  nlaw' >i 
raad( choica ) s 
cata  choiea  of 
't'  j  altar> 

'2'  ;  add* 

'2'  :  -lalata* 

4'  !  tjfjdtnt  ; 

'5'  ;  alact* 

'6'  :  rrinttwt* 

''7'  :  eatin 

Ot  !■  rtJ 
axit<<jnnira:> 
and* 

otharwita  haln 
and 
and 

and*  <brow«a> 

batin 
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w*tcnoic*i 
broMW 
moi 

PROCEDURE  OPSTOTUS  <  Mr«an  i  *trin9  >* 
formttrat 

PROCEDURE  AUSTQTUS  (  f>«r4on  i  *%rin9  >i 

♦'ortMTd  J  f.  atw 


SEBMENT  PROCEDURE  BUV  <Mr«on  t  strinva  Hit,  :  char>< 

CltMwqn  ppoeurwiin.  reutirwi  to  «murr  bud^  bolaneo 

i«  net  oxewdid*  «nd  that  auneHaaa  rates  sro  net  axcaedad.  Oise  allows 
for  soraarina  of  units*  and  aesuisition  «w««ndttura  urdatin».> 
war 

setit  t  beelaani  i«  il«  rick  t  intaaar}  choic*  t  strinas 
answer  i  chari 


PROCEDURE  auVHEHUi 
forward! 


<buu*Mnu> 


PROCEDURE  eUVHQHMJCHt 
war 

i*i*ba«innwi  left*  deficit  t  tnteaeribudaet  t  aprawC1..2E]  ef  inteaers 
d*  e  t  cnariaesrent*  iseent*  rdsrent*  exrense  r  inteaeri 

PROCEDURE  CHBCXl! 
beain 

adteinn  lS*10>i 

writeln^ ‘'PUrchasina  '.nanw*'  ijnitis)  of  '’*svsCii3.naae*''  will  eweea 
d  the  annual  " >i 

writelrK'  rurrhase  rate  for  this  svsten. 

>» 

sotoxw<  I8*l3)!write# 'The  swstew  arm^al  aurehase  rate  :  '  >» 
'»riteln<swsCii3.rurlinit>»entoxv» 

«e*ite<  'The  nuaber  renainxna  for  aurcnase  this  aear  »  '  >t 
writel  n<  sasC  i  i  3  •  uni  teua  >  I 
aatemh  t8«18>i 

wiielni  'Do  aoo  desire  to  r*irehase  fewer  than  '  »aana*'  units?'  >* 
rutit< 18*17*'  <V  nr  M>  ' >» 

readid)! 

if  <d  ■  'M'i  flr  <d  •  'n'i  then 

beam 

clearscreen* 
exit<  buaaenu  > 


else 

beam 

e*j>tit<  18*  16. 'Reenter  the  nunber  of  svstee  units  desired 
putit<  18*17*'  <PolIow  '•ith  PCTJRH> 

readln(«ana>i 

if  isanw  >  swsCiil.unitbuv  then 
beain 

e*Jtxt<  18.18.'  vni.»"PE  fevr  cwcRftTINe!  >1 
eutit<  18*28*'  <Press  BETURN  to  exit.^' '*i 

read<d>f 

clearscf'r'hi 
exitibtnw.  <u> 


1 


fftdJ 


tnd 


CTH6  F0LL0H1N6  960MI!MT6D  PROCEOURP?  OR6  COHP!L£D  OHO  INRERTEO  IN  THE  MfilN 
RR06RRH  OS  SRTCH  2P  U91M9  TV€  COHPILER  ''INCLUDE"  OPTION,  DUE  TO  FILE 
SIZE  CONSTRAINTS. > 


PROCEDURE  CHECK2<iauch  t 

ttk  t 

PROCBXIRE  M»OS; 
bMin 

90tox^5,18>> 

cor*tinu*  this  ^jrch»»*  and  do  not  scran  anv  o 

tPor  «v«t«ms" )i 

«otoxy(S*l9)i 

is»it#ln< "< to  lownr  <^pi.ir  on^atino  cost*)  woo  wjU  haoo  an  annual  d 
(jficit.  Ti«ica'''>> 

«otoxo<S.20>i 

Miritaln< 'this  anount  nhU  thon  Ho  doducrad  Pron  naxt  woar"*  b«Jd*» 

t, '  >j 

90t0XW<  19,21  >2 

ia*iT^ln<'Op  woo  wish  conttnor  with  this  acaotsition?' )i 
W)tO)(W(2R,22>> 

*»»*it.»ln<"  <^VnrN>''‘i 

r*ad<»>J 

iP  <a  *  "N" )  or<a  ■  'n' )  tnan 
boom 

claarscraans 
♦yiti  bownantj ) 
and 
alsa 

claarscraan 

andi  <I«iordt> 

baatn 

claarscraans 

at  Jt  1 W  36  , 1 , '  WARN  I  NS' >  s 

a<jtit<  1 9,2," Voo  h«’a  not.  <»nnt.twn  funds  i-anainina  in  rha  waar  to  niaka' 

)» 

aotiwl9,3,'  das  I  rad  aeauisition. '  >i 

aotoxwt  1 "  ,5  J » 

Ha*italn<  'Gh^aat . . . .  .a*  ,t>odaatIwaarl  > 

• 

aotoya  17,7''; 

i*ritaln< 'Aaotjnt  saant  a,.*vio,.ialw  for  sauxsitions. ...  a*  ,aa>aant  >2 
•fotoxw<  17,3  >2 

writaln< 'Aaoont  saanr.  for  intalliaanca . . . a',i8aant>2 

aetoywt  17,S  »2 

wrxtaln< 'Aaotjnt  saant  for  R  and  0 . . . a',rasaant>2 

t  sa  02 

for  k  ;•  1  to  mjaof-awstans  do 
if  swaCkl.dalata  ■  0  than 
t  I  a  t  t  swsCH.oacostr.tl » 

fOtOXWC  I7,l0'i2 
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uirit*ln< 'ftwjnt  to  OMr»t#  9II  currspnt' >j 


«jtox¥<  17*11 )! 

writ^liK'  tii^wntoriir* . 

*»tox«i*<  17jt2>j 

(Mrit*lrK 'Owouftt  r<HMinirHi . . . 

90toxv<  17«13>i 

««(rlt#ln< 'Oe^i^itior*  amt  opa^^atin*  co*t9  '  >* 

»otox<^<:  17,14)  j 


writ*lfH  '  o+'  «*liKt« . J',4uch)i 

17,16): 

d*ticit  s«  l*»'t  -  iwjchi 


ur'ittlrK  ‘  Off  tctt. . . . ,d*f  icit>i 

laord^ 

imdi 


PROCEDURE  aUViTj 
var 

oacjttmin  f  t  e^ari 

br9in 

If'  Mar\<«<d  th«n 
b*9in 

claar<eramit 

4*jtit<24.tR.'vr<J  i'C1N"T  P*JV  HEROTIite  UNITS!  "># 

4utlt^24.11.‘'  <Pr>*«*  RETURN  to  CorWiiouo)"  )i 
roa^  4al ) > 

•xit<  bUNit  > 
andi 

back  :■  ( 4V4C i i  1  ♦  i nuftt orvfwxnv )-4V4C i  1 3 . t val t 

if  b*ck<0  thon  ba«k»«Ri 

i*'  «>airji<«paek  tH#n  mtn  »»  oitnv 

»\%a  nto  i«  backi 
if  mmon  »  ^law*r«rn  tN*n 
b#4tr» 

rodlaft  !•  I'^l^ft  -  i»anvHf»vi^C i : ] . oi»ro4t  -  «irv**v*Cii3.a^o»ti 

raaaaant  :•  oaaxwoot  ♦  1. 

r^r  iil.unitbijiv  :»  r^ft: ’•'.'oitb»Jv  -  oansj 

rsCiil.  iiiw*niorv  :■  r»Cii3,  in»»*ntorM  ♦  tnanv* 

051  i i ] . 0Pr04ttT I  ;■  r«tit]..?pro5ttt!  ♦  r5Cii3.0PC0*t»«ar«*i 
rsCii  ].<Jtil4ttl  :•  r«C  j  i3.o»  i  Utt.l  r»Cii].ijtil«*K»arvi*» 

4V«  J* 

and 

al4« 

b*4in 

blulaft  ;•  blola^t  -  •snv*«v4tT » ].o»co»t  i»in**w»£ii3.aneo»ti 
baaaaant  :»  ba«4nant.  *  wuna^M^r  j  i  1.aaro?f  » 

MCiil.'jnitbUM  :■  bsCiil.unirbi.'v  -  oanw* 
bsCii].  im/4ntorv  j»  osf  1  »3.  in<:»ntonv  maar*t 
o*£n3.onco«tttl  :»  !5«ri ’  J.i'^roatttl  *  e«Cn3.i3Pco*t***anvi 
b»Cii].util«rl  :»  b«Cii3.uM Utt  I  *  b«Cii].util4#«»anvi 
i'^%  ;*  ba 


andi  'b*jvit> 

PROCEDURE  SCRfiPITs 
•jar 

oacK,<»in  t  intaaarjdal  :  cHiri 
baa  in 

If  KianwiO  tnan 
baain 

ciaaracraanj 
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^Jtxt<2S,10»'VOIJ  03N''T  .'SCROP  K*SftTTUE  UNITS*' )i 
<PrtM«  RfiTWH<  to  Cor»tinu*>' ;i 

r*^sd<  <1*1  )J 
•xit<  »er)i»tt  > 

«ndi 

bock  !■  «s«£n]. ino(intor>*-»<«rii 3.»..v%l » 
if  backus  th«n  oockia)^) 

If  m»r#<«o*ek  th*n  min  s»  i«*or»« 

•!««  min  :»  back; 
if  aar«on  •  alavar^Cl] 
bMin 

radlaft  :■  rodlaft  *  ii*ar»v*a«#«Ciil.op<o*t  ♦  »xn**ir»Cii3.aaco»ti 
nafm%mmnt  t«  roaMont  -  (airta^vaCt  iJ- 
r«Cxx3.ur*ttbuv  i«  r«Ci ij.unitbu*#  ♦  aanvi 
rsCiil. xnoantorv  :«  f^CiiJ.inwantor*#  -  *anv» 
rsCiiJ.owoatttl  :•  rstxi  J.<:»»co«tttl  -  r«[ii].OKo«t«iMnvi 
rsCxll.utilattl  :•  r~»Ciil.ut,iUt.tl  -  r*Cii 3.yiil»*i*ar*>#» 

SVt  !•  ("5 
and 
also 
baaxn 

Ololaft  :*  bluleft  «*af*^\#atxr 3, oncost  •xr**»w»Cix 3, oncost* 

bonsnsnt  s«  boasnont  -  «iir**av*ti  13. oncost  s 
bsCxi3.unttbw  ?•  b«tixl.*jnx»isuy  *  mmv* 
bsCxxI.inwontors  >•  bsCxiJ. xnMsntorv  >  nonss 
osCxxj.aneostttI  :•  bsCixJ.oncontttl  -  bs£xi3,oneost«nor*s# 
bsClil.utxlsttl  !•  bsfixl.utxlsttl  -  bsCxx3.utiIs«nonyi 
svs  jn  bs 
ond 

and*  <iicrai»it> 

basin 

if  narson  ■  •lowarsCll  than 
basin 

oudsat  :■  radbodsats 
laft  >•  radlafts 

oasnant  s*  noasnants 
isnant  :•  risnants 
rdsnant  :■  rrdsnant 
and 
aisa 
basin 

Dudsat  ;a  blubudsats 
laft  :■  blulafts 
sssnant  :*  bossnants 
isaant  !■  bisnants 
nqtnant  s*  btsjsnant 
and* 

sotoxyi lS«idis 
If  lista'c'  than 
oasin 

na'italni 'Mon  sons  ijnits  of  osatan  '»5ssCxx3.no«a»'  -io  vou  wont  to 
)  s 

naodlm  sons  > s 
ocronits 

aviti  Dwhownuch  > 
ands 

'uritalni 'How  sons  <jniT,f  of  isstan  '»ovatii3.nona#'  -Io  you  loont  to  a«.irc 


i»'  (Mny  >  4v«Ci:].ijnitb(.iv  ti%»n  chwe^ii 

to*  >■  <  «v«Cii].  inw«m,orv»iMnw>-sy«Cii].tw«li 

if  ba<a  then  bMt"9t 
if  ««nv<ab«  th*n  i«i  «iarM 
#!«•  «i  :«  osi 

*x#*nt#  j«  sv«CiO..*^ost.««»t  ♦  rir'nl 

if  >  l*ft.  then  check2<  •  t 

buvit 

fbuyho»*«och> 

PI^OUftE  BUVhEHUi 

pRocEoune  nextu 

PROCEDURE  MEXT2* 
t3*«in 

Q0T0XV<38.l3)i 

iKTite^  ^•‘’««<MCii].CiPco«r.^} 

60T0XV<47a3)» 

wr  ite<  «v»C  i  i  1 .  ott  i4  )i 

80T0XV<53*i3)i 

wn  1 1«<:  »v«  £  i  1  ] .  ( « i  tbtiv  ^  i 

S0T0XV<<»5.t3n 

*«»i t#<  '  f-- .  »v«f  I  i  ] .  OPcOTt.TTI.  >  I 

0OTOXV<73,l3>i 

»i»*i  r.e<  5v»t  1 1  ] .  ot  i  1 4TTL  >  I 

•ytit<i.l4.' 

'  > 


b#4ih 


sowxw  I#?"*; 

iurttiflfH'  ■' 

"•rttelm ' 

'  ">i 

"•riteirK  ' 

•  >» 

“■  '•  2 

iMTiteirH' 

■  # 

-■  >i 

•rtrtteln*  ■' 

'  H 

'  fi 

"'TiteirH  ' 

••jMW4,8,'ijpr)PTED  system  rNFOPHOTIPMt 

wjttrx  8,10,'  ,50 

rOTQL 

'  }t 

»«JMtr2^H.'3V<!TEM<TV«s>  iMi.«HTnRV  COST  rOST 
OPCOST  IJTTL3  ■' >1 
•30TOXV<2,13)» 

iiinitelrK  fv*( 1 1 l.rtemr*''  '  .«^£ » i ].  jort*'  Jt '  >i 

i50T0XV<2l.l3>j 

ii»rit4<  ty«£ I iJ.  irKMmorv »» 

i3OTOXV<30.i3>> 

'"Tit.et '' *'  >«v)4C  it]. flOcijuT.  >  I 
»*xt^ 


PIJRCH 

UTILS 


LIMIT 
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«ndj 


b*«»n 

cl»ar«er*<»nj 

^Otlt.<4»l.'??VSTEM  IHFnRHQTTON*' 

wjfcitta.S."  OO  itP  WJRCH  T 

0T».  >i 

Wtitr2,4,'SVST6H<TVPS')  IKI»»?NT0RV  COST  COST  UTILS  LIMIT 
OPCOST  UTILS  ')» 

0OTOXV<2,6>j 

"  .«v*tin.sort»'  >s'">» 

SOTOXVt 21.6)1 

wr  ii*<  sv*t  i  1 3 .  )i 

60T(K<V<3e.8>j 

"S'.fvtCin.POcMt)! 

60T0XV<38.6)i 

writm.  '»'.«v«Cii3.0Pco*t)i 

eOTOXV<  47,6)1 

«ir  1 1«<  1 1 3 .  ut  1 1  s  )i 

60T0XV<l55.6)i 

«v«Ciil.untttRM)* 

80TOXV< 63,6)1 

.«v«Cii3.0Pco«tTTI.  )i 
0OTOXV<71.6)t 

smC  i  1 3.utt  l^TTL  )i 
buvhoMMichi 
rwxtl 

«f*di  <‘bu«iiwgwu> 

PROCEDURE  WRITEFIRSTi 
0**ir» 

«eto)(v<  13,13)1 

^ » 

)i 

writ»ln< ' 

■■  >1 

iHrtr^ln<  ' 

-■  )i 

fotoxv^  12,13)1 

'6nt*r  »M*  r*^  im^tnr.orv  y«i  wi«M  to  alt«r. 

' ) 

*ndi  ) 

PROCEDURE  URITESECONOi 
o<r«in 

90t0X^l<  13,14)1 
I'lritolrK ' 

'  )i 

■nrit#ln< ' 

'  )i 

writ#ln< ' 

")i 

r<rit#ln< ' 

'  )i 

niritoirK ' 

'■  <1 

wtoxiM  I3,l3)i 

wrjtolm'  i3o  '«u  >««»»»  to  w>th<»r  '  >i 


109 


90toxM  17*16); 

V  or  N>  ' 

r««d<  Jirr»»#r  >  I 

if  <  arwwT  ■  'V'  >  isr  <  >  fb^n 

<>»cit<buv> 

*ls«  c«s*  li««'  of 

tfiMi 

imd;  <i.ifir.i»«#eorvS> 

boom 

for  1  ;»  1  «*  169  do 
b««tn 

if  1  ■  1  th#n  iMritofir^i 
airitMocond; 
rutitidjlS*' 

17*16*'  <  Follow  with  OFTIJim  >  '  >J 

rut,it,<27.l7.'<  0  ro  doir  >' ‘s 

roaolrKchoico); 

if  <choic*  ■  '0')  or  <«hoico  *  'o' > 
th«n  CM*  liot  of 

'»'*'c'  j  oxiWorotatjjo); 

'a'  »  oxit,<  » 

«fKlJ 

11  >•  9; 
ootit  i«  f«l«o> 

ror*«t 

ii  »•  ii  ♦  1; 

if  (chotc*  •  svsCiiJ.na*!#)  or  f  it  >  oi.KWf 5ir»t4w»« ;  th<m  ootit  »•  tru 
'jrt.ll  wtiti 

if  cboic*  ■  5v«Cii].r»»»  tjior  Ht.iyognu 

oooxr 

holr* 

#yit<bui#> 

•nd 

♦no 

ordj  fbuv'> 


369H€HT  PftOCEOUAE  ROSTPTUS  <r«rsor  s  »trino>» 

<:>I;4ll#d  fro*  (••in  ««ru.  Promo**  for  •mr'irowort  jnO  disrlov  of  n*w 
6*0  orrorUNiiti***  sh*l«w1  PtO  rro-ioet,**  4n0  rroj*CD»  in  "*0011. 

Allo«»«  *l«w*r  to  ch«n**  tli*  •t-tto*  of  *n*  •ro.joct.  'JPO»t** 

«n«loin«  *«n«lti*«  anrt  all  PW)  •xronOiror*  f i»or*«.  > 

'Jar 

ouitfla*  s  bool*«n;  o  i  char;  titl*  ;  ttrino;  l**'t*  (nucn  :  int***ri 
anopont*  i9*«nt/  ro»p*nt  :  in».*o*r»  budwr  :  array  Cl.. 203  of  int*y*r; 

PP0CSDUP6  POH6POO<<  »*t*r*  j  irrt.*y*r  )» 
b««in 

cl*ar»cr**ni 
*utit<28*i«h*r**titl«  >; 

90toxy( t*3>> 

"iritolfK  '  P*.0  TPT  >JO«  VP  t  yp  2  VP  3  PCO  'CiP 

PIJPC'  >1 
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'<irit*lrt<'NflM6<TVPE>  trOMPLETeO  REO'-'O  COST  COST  COST  COST  COST 
UTILS  ROTE'n 

•ndi  <rHh)r«4ffr> 

EROCSlURE  LISTIT  <  i«  count«r  t  'i 

1«  iMnw  I  int4mtrt 
b**in 

1  »■  5  >  counter f 

Mtoxv(  t«l  sy«CiI.n»ii*p''  v  >i 

16*1  wofR«0>i 

mmnt  !•  Si 

if  swiCil.wSRaOeost  >  S  t)wt  mtv  t*  3 

if  «MCi].^2fU0eo«t  >  S  thcrt  ttanv  t«  2 
tlM  tf  «v4Ct].^lftafyo«t.  >  P  r.io«n  Manw  :•  t> 
setoxMiSS#! 

90toxv(32«l  >i«rit«<  '*'’»*v«Ci3.w*lP«Dcf»»t )« 

«at«in«(38.1>Mrit«<  'S'«sv«Ci].‘ir2ni0co<tt>i 
90texw(44,l  >iwrit«<  '»''*«v«Cil.w‘3Pji0cn«»  >» 

«otoKvi90*l  >i«rit«<''*'<«v«Ci3.McMt.>i 
*otoKv(f7»]  ysmritM  '9' 

•otOMvit  V  )iwrit«<4M(i].>jt.il«>i 
90ta>n«<7S«l  >>M*it^«vtCi3.Purlt<*it> 
tndj  <li«tit> 

fPOCEDIME  CHECKj 
w«r 

%*n*<l»ficlt  I  xntimtri  <:  j 

PWCEOUPE  MOPOSi 
b««in 

«o««kv<2«18>i 

»i**xt#ln< 'If  '*fXF  continw  wtth  »K»f  •rw)  cto  not  »cr«p  or  shrlw* 

jrv  oth*r  ti 

9otoy)«<S>lS» 

•*rxt»ln< 'f  to  IcKwfT  yoor  rc«r«>  ’^ou  "ill  Mm*  jr  artnu*!  dpfic 

it.  •  Th*ic»*  )» 

90t.0)r^  ll«20'>i 

•w'ltrlrK 'thi?  arm^.  wiP  rh*r  »i*rnr*«0  fror  y»w*"«  bud9»t. '> 

I 

wtox^*<  15*21  'I 

writPlm 'Oo  ^#oo  "*i«r  <’orf-ini>»  "»»»•*  thx*  in«*»«xT4*wit'^'  '>« 
o«n>r»<20»22  )i 

wrxt#ln< '  <V  nr  N>'  -i 

r*ad<c  >x 

xf  <c  ■  'N'  >  or^c  •  'n' ^  t»im 

1J»*XI1 

f  Uanierr*»n» 

»rd 

*ndi  fwor«1f  > 

oooin 

cloartcrooni 

»utxrA3S»l,'H0PNIHP' 

^•JtxW  15.2*''i'«u  nor,  •neijnr  m  t,h#  year  to  >» 

rotxtx' 15*5*'  thr  i»«nT .  •  i; 

«toxw»  17.5  > I 
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#bu4wtC^«r] 


K.*  • 


iJ 


n#rit*lr*< 

17,7  Ji 

*(rit#lrK 'ft«wur»t  t'or  . .  .S'  tamtmvntit 

90io)n<  I7,i?>j 

writ*ln< '(Wsunt  «»#nt  fof*  init.»n’«*rw“» . S'  ,ts^9rtt  >i 

«otoxy< 17,d>i 

writ#ln< pr*«Mou«lsi  #‘or  R  and  0 . 

t,  !■  Rl 

»'Of*  n  >•  1  t.o  nonof«w«»,»iw  dn 
It'  «v«Cn].d»l«t«  •  R  th«n 
t  !■  t,  ■*.  sv«Cnl.nnc4«t.t.tU 
9(M.a»nn  I7<td'>> 

|*rit»ln<  ^flnount  to  on#r«t»  all  cwnant,"  >» 
ootMxvC  17,1 1  >i 


■(rttalnt '  inM^ntoriirs. . 

aotoxv<  17,12)1 

wr*it#ln< 'rtnount  ntnaintir*. . . . . »',l«ft..)j 

«oto>nt<  17,13)1 

i*r*it#ln<  "R  and  0  co«t.»  <  tncltidin*  an«#  Mtnaltv  for  '>i 

aotoxvi:  17,14)1 


iMrtt»in<'  ahalwina)  for  maron  ^*t«t.an  «al«rtcd. ...s',Mjcn>i 
OOtOH'^  17,16)1 
deficit  i«  left  -  nuehi 

tMrit.*ln<  'Deficit.. . . . deficit)! 

4orda 

end!  frnecif  > 

PROCEDURE  CROi 

oar 

1,  counter,  *#»ere  i  inteaeri 


PROCEtXJRE  CH008E11 

oar 

•  :  strinei  j  :  int.e«er!  m  :  cnari 

PROCEDURE  MONEVtj 
beein 

if  rerann  »  rlaweraCU  tf^ 
brain 

nuch  i«  raC  n.MrlRsOcoati 
if  ouch  >  redleft  then  citeck! 
rrdsrent  t  •  rnoaeent.  '~«t  0.yrlRaOro«ti 
redleft  !•  redleft  -  reCJl. wlRaOcoet 
end 
elae 
oeein 

euch  s«  i?«C  I ’.RaOcoet » 
if  bluleft  <  toch  then  check i 
brdanent  t«  broanent.  ♦  ji.-.,,.«ReOrn«t.i 
bluleft  !■  bluleft  -  baCjl.vrlRaOcoat 
end 

end!  Cnnnevl  > 

beein 

•utitC  19,14,'*  NOTE:  «.L  HEM  RfH  rro^iRCTS  MIU  0E  *'  'i 
•utlt< 19,15.'*  ^HELUEO  AT  vgpREHO  UNLESS  VOU  *'  i 
eutit< 19,16»'*  NON  r»«TfiN«TE  *'  >1 

aoTOww  17,19)1 
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y*ar''?  tsuo9»t' )i 

pwiti7.,20t  enttf'  th*  n«**  <jf  th#  i>«ho«<»  RJtO  '«o  iiish  to  b*9ini 


♦»'  4«w*lo^«wnt.^  >i 


<T*,  "•~.t''  to  ^lt>  ',, 

)  or  <#  ■  ■'^tit,')  th^n  inritCcrd) 

bnon 

tor  1  »■  1  f.o  niM«of^tMt.#A«  rte 
b*9in 

it'  9v»Ci'l.n««*  ■  »  thoft 
t)«9tn 
"torwvl* 

W9Cll.straft4M  i«  2i 

If  •orson  »  •>%w*r5C13  th#r»  t«  »v* 

#!«♦  l»  j«  «v«2 
c  lrar«rH?*nj 

fotox^  td<ie>i 

^  (*rtt»liK 'ftto  fur*dti^  H*«  oUottod  ikitsu*  «v«tM 


^•jttt<  ie»ii,' 
•viWcr^) 


RSTURH  to  eontinu»>'  )i 


ottdi 

t^lr 

*fWj 


<Chrt<M#l> 


b««in  — 

■:oor*t*r  i»  *i 

i»  li 

cleorocnfoni 

titl»  :•  'NgW  R^O  0R*WTIIMTTIP«' s 
oOhootftfKwtvtroji 
tor  I  j«  1  to  ouwof^yytMn  oo 
bMin 

'''.f‘t:ith::S55r';  *”  '""“>•”«<«  • » ««. 

oooir 

countor  j«  count«r  ♦  1« 

1 1 5tx w  I  »  C'3tW*r  ) 

*na 

«n4> 

chwwol 

*•'*** 

PW3C6WJR6  CNROj 

iHhor**  i«  counr.or  i 

PROCEDURE  CHOOSBZi 
■j«r 

♦  «  »trir»o»  j  j  tnr.»<>tr»  m  ?  rn*r» 

PROCEDURE  M0N6V2i 

PROCEDURE  M0NEV2PI 
6*«tn 
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!♦'  dsCj th<m 
b««in 

blulvft  !■  blul««'t  ♦  <b«CJ].vrlR«Oro«t.  ♦  t>«Cj1.^«naltv) 

if  b«CJ}.w‘of<^40  ■  1  Owi 
bnin 

bmspgnt.  i«  OrfitP»nt  -  <b»rJl.v<r?R«Oco«t  ♦  b«Cj].P«naltv>i 
blulcft  t«  bltjl4*ft  ♦  ifb^t  il.^29j|Oeo«t  ♦  b«tj3.M»»lt<rf ) 

«naj 

if  b«CJl.<:M'‘f)fRiiO  «  2  tiwn 
b**in 

Brq»>i»nt  t*  brbfp^nt  -  <b«tJ3.'!<r3R«Oco«t  ♦ 

blul«ft  >•  blul*ft  *  <b«CJ3.>^3R40c4«t  *  b^CJl.Mncltv) 

«nd 

•ndi 

b«»in 

if  •♦rw*  *  ^iJBwriCt]  fjntm 
b**tn 

if  r*«Cj].M'«fR40  •  9  ♦>*»« 
b««in 

rr<WP#wt  }■  rrtHpttnt.  -  < i^C.i  1. w'lft^Ocost 
•^l*ft  >■  r*rtl<pft,  ♦  <r^tJJ.wrll»«Oco«l  *■  r**CJ].^<»n»ltv > 
<9ndi 

if  r^Cal.vrofftiO  •  I  th*fi 
b**tn 

rrQfm^fff.  i»  -  < rtf  i 3 . vr2fta0ce«t  ♦  r<»CJ3.iMinaltv>< 

<^l«f».  J«  »»*bl*ft  ♦  <r«£j3.vr*2RaOeo*t  ♦  r*CJ3.»f**»lt»> 
tndj 

if  rosCJ3.MrofR«0  •  2  th*f» 
b*«in 

j«  ri*il8>iwwt.  •  <r*«r.)3.w?fta0co«t,  ♦  r^Cj3.*«n«lt>'#>i 
i»<i4l9fT.  I  a  rSKtl^ft  ♦  <''^CJ3.^^r7b;80cO«♦•  *  r5CJ3.a*rv»ltV> 

•nd 

#l»r 

iMorMrv^* 

«WJ  <’n*rwaM2> 


b««in 

9oroxy(  I7.t9>» 

'•irit^lrK 'Voij  HwN»  f'tlaft,,"'  i»«!*8»r»ir»a  rn  r,ht«  'i*ar"8  buO*Vt' ’>1 
WJtit/ 7»21/'Er*t#r  thi»  n«»a  <*f  »w8T.aa  who^a  R^O  ai8h  to 

"JtiW 7*22#'  •'Tvaa  "a»jir"  «uit>  ' 

90toxv<<^<21  )ir94Klln< «  M 

if  <»  a  Quit'  :>  or  a  a  '  a.ii».'  >  ttiar  **'it.fcnrd> 

♦  lua 
9**in 

fnr  I  ja  1  r^o  -io 

tjooir 

if  »v*8Ci3.naa*  a  «  r.h*r 
b*«in 
aoiwiii 

sv«Ci3. status  i* 

if  aarson  a  at8yersCt3  rran  ja  t^s 
•Isa  b«  :•  svs> 
c!»ir«cr<»ani 
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«9tO>>V(  18*10  >> 

iwtt^lrK  h«*  cut  further  pursuit  of  swot* 

m  douoloMMmt. ^ _ 

10.11*'  <Pro«*  R6TU0H  to  continu*>' >* 

r««0(«>i 
*xit.<cnrO> 

«fNl 

«nd 

rtoip 

•ndJ  Cchoo^8> 

b««ln 

courttor*  t*  0; 

IKhOf**  1«  li. 

c  loarseroortj 

tttU  !■  'C0»':TINij£D  WW  OPWTUNITTES' » 

rOhoadtK  Mh«r«  >  i 
for  1  >a  1  to  nUMOf^VttOM  oo 
bMin 

if  <tv«Cil.wfMHt4rt«  vriir>  ^no  (<v«Ci}.st«tu*  *  2>  tiwi 
if  sMCil.dolot.o  a  9  thfn 
b««tn 

countor  »•  countor  li 
li«tit<i*  coontor) 

«r«d 

cheoso2 

*f«J  <crr*»> 

P0OCEOU0E  SROi 
Mor 

wroro*  i*  courtor  :  tntoofri  f  t  rh«r» 

PAOCEOUftE  CHOO0E3> 

wJir 

♦  I  *xrin9$  )  I  imriwri  a  »  cr*r» 

PraCEOUAE  H0r«V3i 

PROCEDURE  M0HEV3RI 
tMOtn 

if  btCjl.'a’^jfRaO  •  0  tNw 
brtift 

*iuen  j«  t»aCj J.^^riRnOroot  ♦ 
if  aoch  >  blulaft  t>wr  ch*cV» 

orcHront  »•  broaront  ^bsC-il.^lRaOcott  ♦  bvljl.rtnaltv^i 
bluloft  J*  blutafr.  -  <b«CJ1.>^lR«0ro«t  ♦  b^CJl.rontltv) 

-moi 

if  bsCJl.wrofRaO  ■  I  thon 
ooair 

iwxh  »•  lNiC  il.'r"2Pa0ro»t  r  barj  J.aanoitv* 
if  aoeh  >  blultft  tbor  choetri 

brtftrorrt  »■  brotrowt  <b«(.i}.yr2Ra0eost  ♦  b«i;j].r«n«lt<»>> 
bluloft  »•  bluloft  -  <b»CjJ.«r2Rj»0ro«t  +  b«Cj].»«n*ltv> 

«n4i 

if  btCJl.iirofRoO  ■  2  th*r 
or*ir 

aocb  !■  baf.i3.w.'3RaOeo«t  *  baCJl.rtnaltyi 
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if  Much  >  blul*ft  thMn  ch*ctfj 
UrtHMftf-  !■  orh«i»Mr»t.  ♦  < 

blul«ft  *•  blol»ft  -  w.'5R•0coM^  ♦  b«CJ].M«nalty> 

•nd 

»ndJ 

b««ln 

b*«in 

if  riCjl.'^rofR^O  •  «  thMn 
b««tn 

Much  fM  r^C  iJ.'M»tPflOco*t  ♦  '~«C j 
If  Much  >  r«dl#ft>  th*f*  ch*cifi 
rra«M«r»t  »•  iTd***!!!  ♦  (r^Cj].*M*lR«Oco«t  * 
r*dl*f»>  »■  fHKllMft  *  <i*Mr.i1.^1ftaDco»t  ♦  r«[j J.M*n*ltv) 
9ndi 

if  r«CJJ.WOfR«0  »  1  t-hfh 

b*iiirt 

M*xh  »•  r««C.i3.v«*2RaOco*t-  ♦  "-C 

if  Much  >  r«dl*ft.  fjicn  chMckj 

rrd»MMnt  f«  r»’d*MMrw;  ♦  <r>«t  il. vr2R«0eo«t,  ♦  p>«CJ].M«n«lty>f 
r<»dl#ft,  «•  r*dl*ft-  -  <r»r  i].^2R»0eo«t  ♦  r»C 
«rv3i 

if  r«CJ].w‘ofRaO  ■  2  th*« 
b*Min 

Much  JM  M^CiJ.-iir^RiOehfT.  r-sCj].M«n«lty« 
if  Much  >  M«dt«ft  th*«  chMcIfi 

rrdiMOht  i»  rrd«M«m.  ♦  *'r*{.il.«*3R«Oco*t>  m(j].M«naltw>i 
hcdl*ft  i«  rMdiMft.  •  ^i^r.jJ.'M^SRbOcoft  ♦  r«»CJl.M<»n«lt¥) 


*nd 

Mon««3« 

#r*d» 

PROCEDURE  LlSTi 
uar 

ic#  co>-<m,  j  iiu«9«r; 
b««in 

cl»irMC<’W^i 

••jtitXie.l.'PRNOtTV  PRrrPC  PhR  PESIJHTHR  PREUIOUSCV  SHEL'i®  RM>  PROJE 

M*jtit<25.3»'Sv*tMM<TMM»>  PMn^ltv"  >1 

count,  jM  5» 

for  k  :«  I  to  nuMOf5V»t#fW  <» 

if  («v«Ckl.«%«tu«  »  !'>  «nd  •  fo  tnon 

bM-’n 

9irr.nv«it2R>cnunr  '  .fUMCk  1. «ort« '  y  Jl 

♦otO)ri»<5S. count  >iw»i»<H  1 . MonolT v > ; 

count  JM  count  ♦  I 
•no 

cndi  «'ii«it> 

brfin 

M»n.it<  15»21  .'Fnt#n  R  to  iduonrM  »i*»  t.o  ui«»«  Montlty  Mfieo*  '  >i 
M«Jtit<  19*22«'  ^PnT,*n  0  to  •jit>  '  >» 

t^od<f  >1 

If  i,f  m  '■Q'  )  or  ■'f  •  '"*  »  t.hon 
ll4t> 


L6 


90toxv<  17>19>i 

(uritelrK 'Vou  (i»u*  in  rhis  <*far"9  hudset' >* 

i*utit<7»2l*'Ent*f‘  tb*  nm*  of  srw  wbM#  RtD  voy  wioh  m>  roouwt 

'  >» 

PfJtitX? m22»'  "mit."  %o  ^it>  '  >» 

ootoxvr66>21  lir«4dln<  o>i 

if  <*  »  'OoiV>  or  <»  «  tb*n  rritt sr<j) 

Dodin 

for  1  :•  1  »o  nu«iof5i«»*r»  do 
bo9tn 

if  smCtl.nAMT  «  <*  thor 
brsin 
mo(1«v3> 

t* 

if  rorwn  ■  rl  »<»r<C13  thon  r«  ;• 

«!«•  tH  t* 
clooroerMri 
90t0)(«(4«t9>j 

wrttolrK  'RW)  f».f*dtn*  bw  r^burrrotod  for  furthtr  oursuit  o 
f  ovsttn  *  •*•'  d#*^lor*i*rt, ' 'll 

«^.ir,<  ';»»•<?*«  f€nJRH  w  continu*>''>i 

rosd^  •)» 

■*srit<*rd> 

«nd 

ond 

*rdi 

h*lr 

•ndj  <ch<woS> 

oodin 

countdr  i«  0» 

Kb*r*  !•  Ij 
cl*ar*croor»i 

tirA*  j«  SHe.'«n  RHO  OPWlPTi.NfTTES' ; 

pdh*ad«r<  siboro  :* » 

for  t  j*  1  to  nuref5y9t.on«  do 

boom 

if  <5v«Ct].^rR«04torr.^  <■  •^■r'  and  <  *'<«Ca].5t^tu»  »  3>  than 
if  »w*Ci3.d»Irt»  ■  0  tb#n 
boom 

coontor  :■  counior  ♦  1j 
li5tit<w  coumm 
ond 

•ndJ 

choos«3 

*nOi  '!^rd> 

boom 

^itfl**  !■  fall.*! 

roroat 

if  roraon  ■  riaMraCll  thor 
bodin 

Itft  i«  rijdloftj 
bud«*t  !■  r«dbud«*tj 
aoaront  i»  raotranti 
laront  «•  riaronti 
rdaront  t  *  rrdardrt 
and 
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'►la* 

b*9in 

<>««•••<>  !■  blubual••^i 


rbwHC  f«  brbwwt 
•ndi 

cl*«rsc>Hf«ni 


^^•^^IS'^.'ReSEflRCM  QNO  ne».)eL0PM6HT  P«0.«CT 
wAu<2a,a.'a...HeN  opportunttifso* 

10. '8... CONTINUING  OPPORTUNlTTBft-' >i 
^*W^.12,'C,..SH6LU60  OPPOUTUNITIES' )i 
«Jti«22.l4.'0...Q01T'  >j 


rw«d(d>t 


CM*  d  of 

i  CROi 

'B'.'b'  :  CNROi 
'C'.'c'  t  SROi 

otNortiis*  h*lp 


5TPTIIS')* 


until  nuitfl** 
*fWj 


<rd«t4tu«> 


{TH6  POU.OMINR  ‘SE'^MiifrrEri  ppocen""**  cnM^TLEO  own  tmsprteo  the  mpin 

PROeMH  AS  BATCH  2B  USIH6  THE  COHPILER  ^ INCLUDE^  OPTION.  OlJE  TO  PILE 
SIZE  CONSTRAINTS. > 


SE6NENT  PAOCBXJRE  SETALLi 

<Imti«Ii2»s  all  ^ariottri  it'  tmr  i«  a  r««utw^ion.> 

PROCEDURE  SETONEi 
war 

taxplfil#  t  fila  of  r,aar* 
t)«9in 

r#*#t(ta*«rlfila.'TEHPOtt«(irol.rtat-J''  >» 
with  ta«M»ifiia<*  do 
Main 

^t*ari»t.yaarjradl#f»,»«trafjl»ft.iblolrPti«M>lolafti 
raairawftitraaaaawt  ibaatrantitbaataant.  i 
risrant»trisi»<mt.ibia»tnt-t»M>iarawt-i 
rrbarar^  t  r^rTbapawt*  i  brbarart  I  brbaPart  t 
nui»ofavata««tatrKN«of«vat,««»«i 
roai  rtroairobi  rtrob  irbat  rtrba  irdb  t  «tr4b  i 
beat  atbeaibobt  *tbebib4at  •tMatbdbt  rtbcStf 
ret  ■tro  irdi  "tTb  irrdo  I  ■trrdo  irrbdi  "irred  I 
froi*tfrotftH!j|»tt>etfrreot*tfrri3e»frr»1di*tfrrbd# 
bet  atbo  1  bdt  ■tbd  ibriiet  vtAreb  tbrddi  "tbree  I 
fbot«t.fboifbd»*»»-#ty»ifbreet«tfbr*tetfbreef«tf1)rtlbj 
warcowtttwireenttwtrttartrt 
Pi  awarsi  atrl  avtra  iraebud>at.t  ■rractsudwti 
blubudmtatblubudaat; 
ardt 

c  la4a<  tapPtf  i  la«leelr  >i 
eaaa  artr  of 

'1'  t  rMwita<*.'.RS232'>i 
'2'  i  raf<rxta<r,'.3ILENTVPE''> 
and 

aNdi  C?r»ona> 

PROCEDURE  iSETTUOi 
war 

tappZfila  »  fila  of  5vat,a<»«i 
baatn 

raaat<  taprEf i la.' T0iPOt tapaeS. data'  ■» » 

rs  IP  tapP2fila-i 

aa«tapp2ftla)* 

b«  IP  t.arM»2fiiaM| 

9at(tapp2fila>r 
c  lo»a<  tapp2f  i  la.  lock  > 
andj  Caattwo? 

baain 
aatona* 
aattwo 
andJ 


<siatall> 


cTHP  POLUlMIHft  MnwceeHPNTen  opnrcnt««  r«c  omo  tnsWTEO  IM  THE  MfilN 

PROeRflM  AS  BOTCH  10  USIN6  THE  CO»iOlLeR  'TNCLIJOE'  OPTION,  DUE  TO  FILE 
SIZE  CCMSTROINTS.  > 


POOCEOUOE  INOENTORV  («,  v  t  int«w>i 

<C»n4MJ  bw  routinM  Omt4tus  «id  ftw«t.atu«.  P»^id*»  listin*  of 

0*«tn 

V  :■  y  ♦  7» 

(sOTC»<V<2,y>i 

iMritoln(9y«Ca].n4M«,'< '  .*y<if«l.sor*t.''  y»'t'  )s 
e0T0XV(21,y>i 

sy«C»l .  inMomor^  >1 
60T0XV<3d.w>i 
sirit*<  'S'',«ysC«I.OOcost.)> 

60T0»<V<38.y>i 

‘'*'',«y«£«].OPco«t.)i 
e0T0XV<47,y>j 
i«rit«<  sv«CaJ .  uti  1«  >  J 
S0T0XV<35,y)i 
wrii«<  sy«Ca].urtitbuy>2 
SOTOHVfSS,^)! 

mritM  '#',sw»C»3.0Peo«tTTL>« 

S0T0XV<73.y>» 

wr  i  t«<  smI  .  (Ai  1  sTTL  >2 

•nd2  Cinw«ntorv> 


PROCEDURE  UPOOTE  <a*r**an  *  ftrtrwi  amount  t 

CPtrfonw  annual  handahaP#  uith  niawr*,  in  tim,  and  ‘»*T*if  i#a  codtuorda 

for  acca««.> 

war 

d  j  cHar2fla*  :  t»ol#an2*!«ord  s  strtni*2 
baain 

c  laaracra*n2writ»ln2wrT»aln2 
flaa  <■  faia«2 

"ritalm '  Vou  ara  abot<t-  to  brain  y*ar  '  ,yrar,'  of  TEM 

PO. '  )n<ritrln; 
iiiritrln2 

"«ritrln<'  '.rr^on,'  \%  iwnantarila  to  wane  his/har  anno 

al  ')2 

w'italni'  bodaat am*  daciaxona. ' >2 

ir'italnxinritalnx 

raraat 

u)rita< '  ENTER  i^tSDEHOROi  curaor  ranaina  f ixad)x  '  >2 

raadln<  li:ayboard,««ird  >2 

if  <aar8on*aiayaraC13i  and  < weri3»al,ayaratn  )  than  flaa  s*  troa 
alaa  if  <aaraon— iaaar*aC2I'>  and  < mondial aaanaCai )  than  flaa  :■  tr»jr 
alaa 
baaxn 

p«.ir.xt<S>d.^  CODEHORO  hRONS'  TRV  060IN 

.  ">2 

rjtiWR.S," 

'  )2 

aotoxaiO.Si 
and2 
ijntxl  flaa2 
iaritaln2ii»ritaln2 

ixrxtalrK'  Tha  bodam.  ‘'or  this  yaar  is  #'»anoontJ2 


'<rit«ln< '  fTht«  -wt,.  in‘<»nt,ory  ijMratin*  co* 

t,*'  >i 

>»rit*in<  '  for  th*  oji-f-mt  -^ir.  T,h»  H«ir»  rt«nu  for  mar*  infer 

mniony  >1 

mrix^lnimritalniwri%*lnt*r\f,*\nt 

mriv*lni'  Pr*m‘^  RgTiiW  obtain  th*  Mam  Mtnu. 

raad<ii) 

«ndi  C'jrnatr> 

PfiOCEOUPE  MHOPLAVSi 

\0btamt  riawr  inforwation  fma  a  <lataf  »la  erratab  b*#  rarant  chainad 
PToaran. > 
war  X  ;  intaatr » 

dataftla  :  fil#  of  strina* 
oaatn 

raaat<datafila»'TUfiNKEVlmana.<la»a'  >» 
for  i  :>  1  to  do- 
baam 

•lawaraCiJ  »■  datafila^s 
aat(dataf tla>i 
< writalrK  rlaaaraC  i  3  » 
anbi 

cloaa<datafila) 

and*  <'«norlawa> 

PRiXEDUftE  Pfl8El<aaraor»  t  v.rina*  Uat  »  cMarJi 
{Cal  lab  ba  Oi»atau«  and  floatatijs  routinaa.  Prowidaa  for  tha 
aaarorrtata  aaaa  Maabara#  3 
war 

cnoica  »  cnarilaft  t  intaaari 
oaam 

if  aaraon  ■  alawaraCll  tnan 
laft  :■  rablaft 

alaa 

laft  j»  blulafti 
aotoxal 15.15>i 

iKTitalm 'Voy  cfTrantla  Mawa  »'.laft,'  to  »aanb  for  tha  fiacal  vaar' >i 
if  liat»^a'  than 

a«jtit<  13»lS*''<Praaa  P  »o  •♦rrhaaa*  •?  to  «craa  wn'ta  or  PETUftN  to  a5<it> 

'  ) 

alaa 

a«jtit< 2®*18»'<Praaa  P  to  atironaao  or  ftErtjPN  to  arit>'  >» 
raad<  choica  >» 
caaa  choxca  of 

'P'.’m'  t  btMaaraon.liat >» 

S'*  a'  :  baatn 

iiat**"':'  X 
otM  aaraon*  I  lat  .* 
andJ 

'  '  s  caaa  lx at  of 

'a'  *'c'  :  axxVoaatatua  >s 
'0'  »  arxt<  «/atatija  > 
and 

othartpxaa 

baain 

naia» 

caaa  list  of 

'i't'/:'  j  avinoaatati.ia  >» 

'b'  I  aai'tawatatija  > 
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*nai 


*fVj 


PWJCEOURE  PP6E2<  p#r<Qw  :  sV'in*)  i  ch»r>s 
tS**  reutirw 

cnoic9  t  ch«rilipft.  :  int*9«ri 

PmCEOIJftE  laOUlWCEi 

M9tn 

cl«ar«cnp«n< 

CM*  list  of 

'a'  t  ^ytitX28»2» 'FORCES  Ci.i»»R6hTLV  IN  INt-ENTORV' >» 

'h'  t  Putit<28.2« 'FORCES  flUftlLfletE  KJT  NOT  IN  INl^ENTORV' ) 

«nd) 

^tjt<S.4,'  00  np  T 

OTOL  '  '>i 

••Jt.tt<2#3»'SVSTEH<TVFB>  IN^JFHTORV  mST  COST  ijTILS  LIMIT 
OPCOST  UTILS  ' 
wrtt*lr* 

0*«in 

If  4*rsoM  •  tbim 

l*ft  t*  r**il(fft, 

l«ft.  j«  blulpftj 
POtoxvC  19*15)1 

^rit^lrK  'Voo  crjrrpntlv  M^up  #'.l#ft.,'  f.o  vpvfNj  for  thp  fiscal  -rur'  >i 
if  »>>*r 

•*j^it.<7»16»'<  Fr*55  P  Trt  •*jrrn*»#p  ^  to  «criP  ijnita  or  rr*^*  A  for  n*x 

t  r;HW  >'  'I 

oi»* 

•»jtit<  IS*  16«'<  Pra»a  P  to  ••jrrh»«r  or  A  ‘'or  oirxt  »**•  >'  >• 

r<Jtit<27*18*'4#  AOOITIONOL  POSES  FOt.OW  •» 
r»ad<  choic*  )i 
<:*%*  choic*  of 

'P'*'r'  I  8w< ror^on*)  i«t. 

'S'*'5'  s  t)««in 

b«M  roraor  *  I  i«t ) 
ond» 

'O', 'a'  J  a&iamr.m 
oiMorwii* 
beam 
h*lri 

ca»<?  list  of 

'  i'  * ' c'  :  *rit<  opot.*»A»«  '» 
b'  ;  *xit<av«au«) 

»f*a 

#nd 

9na 

■sndJ  f»^992y 

PROCEDURE  OPSTATiJSi 

tAccM»*d  frop  «iain  mr^j.  Alirrn  itfrinp  of  si)  ':'.irr*nt.W  m 

ir»<#ntorv.  Prowidoa  for  svatow  ••.•roNaso*  »rfl  «rr.sp»ir>«  rrroooo  csils 
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to  tho  Duv  fubroutino  •*!«  PmoI  or  > 

war 

d»list  I  cb4r)i«k*cguntor  t  int.twp8 
b««tn 

list  j»  '*'i 

for  k  !•  I  to  leee  40 
b««tn 

countor  t«  9i 
cl*«r«erH»*ni 

28.2, 'FORCES  CURRENTLY  IN  tNUFNTnRV' >j 
^Jtl».<8.4,'  OQ  iTR  RJRCH 

TOTfiL  )s 

rytit<2.3.'SVSTEH<7VRB>  INMSNTORV  POST  COST  UTILS  LIMIT 
0PC08T  utils  '  ■>> 

»<rit#lni 

^or  t  i«  1  nuMef4v«t«M  4o 
b*«ir> 

!♦'  <•  and  ( svaCil. inw«ntorv>d>  th*n 

if  <y«Cil. dolor*  •  0  th*n 
b*9in 

courvtor  i«  cognt«r  ♦  li 
if  coofwor  >  4  tjmrt 
Oooin 

rountor  tm 

*m*2<  *«non#  U«t  > 

•ndJ 

inwontop*^  i  .coumop » 

«nd< 

•ndt 

*•**!<  popdon.  1  i4t ) 

«fKt 

r*'®*  «‘op«T.»to*> 

PROCEDURE  OUSTOTUSi 

<i^ce*»**d  fpop  nain  mortt.  otloMd  lidtin*  of  >n  svdtowd  availabl*  out 
not  d*t  in  inuontops.  Prouidod  for  «;vdT,*n  **^ha4*d  and  acpamnd  thnoodh 
calls  to  th*  buy  subrouttn*  via  Paaai  op  Pad*2.> 
v»ap 

d.list  I  chap»i,lc,coont*p  i  int*«*pj 
b*din 

•  list  »«  'b'j 
for  k  !■  I  to  1008  do 

beam 

countar  i«  81 
cl*ar4CP**ni 

•«Jtit<  28,2. 'FORCES  QUflILPRLF  PUT  NOT  IN  TNUENTORV' >1 
*«Jtit<8,4,'  00  OR  PtJRCH 

total  '  )i 

•«jtit<  2,3. 'SVSTEH<  type:’  TNuENTORV  i?0ST  COST  ijTILS  LIMIT 
OPCOST  UTILS  '  )i 
NPitalP* 

for  I  «■  1  to  n*JPOf4Vft*H«  do 
b*«in 

if  i«y«ti].w‘await  wiP>  and  ^5v*til.inM*ntorY  •  8>  th*n 
if  «v«Ci].d*l*t*  «  8  than 
b**in 

countar  »•  countar  ♦  1» 


if  counter*  >  4  tiw» 
bMin 

county  j»  9» 

»«m2<  (i«rson*  U«t  > 

inwdntorvf  i  »coum,«r '» 
•rxli 

4ndi 

^«r«ion>  I  i4t> ) 

«nd 

Caw«t4t)js> 


PmCEOOftE  CtJIWEHT9TaTUS(^«r«on  t  «trin«» 

<Su^liri  curr*nt  ^lawr  Oodwrt  > 

var 

mt i < l»ft,»«^«p<nt j i :  ir»t<»«fv>js«Mt>ud«*t  t  «rraw  Cl.. 20]  of  t 
nt«g»ri 

<i  t  cHari 

PAOCEOURe  COSTS 1 
o«9in 
J  !•  101 

for  X  :»  1  to  nuraefowtOM*  Oo 
bovin 

If  <4VfCxl.orco4tttl  >  9>  4tK»  Csy9ri].vr4i/«il  <»  war)  than 
if  «v«Ci].4alata  •  9  than 
baaln 

J  i»  J  4  1» 

90V»rv<  11  .J)iHrita<«wCii.r«a«e.'<  ‘'.4v«Ci].«ort«' )'  )i 
«9tOMv<  30»  j  )iii**tta<  awC  i  1.  in«>antor*#  >  • 
aotoyv< 40,j  >ii«rt».a< .«v»Ci  1 . orenatttl  ) 
and 

and 

and»  Cco«ta> 

baain 

If  aaraon  •  atavaraCn  than 
brain 

avabudbft  :■  raobudwtjiaft  t»  rsfdlaftx 
amrant  «•  raaaranti isnant  «■  rtsrant irdaaant  :•  n-darant 
and 
alM 
oaatn 

avabudaat  i«  blubudvatilaft  t»  bl<.>laftj 
aaarant  «•  baaarantxxarant  :•  biaranr-irdaram.  :»  brdaaant 
and) 

claaraeraani 

autitx39«l*''8ll06ET  INPORMPTTOH' '•larttrlnxaotora*  t7*3>) 
arita< 'Vaari  '«war  ))adtora<32«3)> 

»rxta< 'Tot-al  Annual  QlloManeat  a'.ayabudsatCwar] )) 


aoto>ty<  9«S )  I 

'•ritalni 'Qneunt  arant  m  acauiaitiona.. . <*«aaarant>» 

aoto)«<  S**'! 

witrlrK 'Aneunt  aaant  on  intallxaanra...... . a'«iaaant>i 

abto>v<5»7>» 

"irttaim 'Anount.  aaant  on  R  and  0. . . . . S'  .rdaaant  >» 


aoto)(U<5*0)iwritaln< 'naaratina  coats  by  awra*  (thoaa  in  in*>antor*#  >j '  )» 


1 


Oi.iant.tts  Tntal  i>*rttin*  Cost*' >1 

CO«t«i 

m  !•  v#ar  ♦  1 1 
setOMvC 10*20 >* 

■  'Cxsoetod  <3*f*f**#  ood*#*-  for  rtxt  ^trt  *' »r*flbud**tC#*J  >* 

*otox*<  24*21  >t 

writ#ln< 'Total  Monio*  ftoMinin*  s 
PWit<2l*22*'<Pr**«  RETURH  to  rotum  to  Mir*  «>*no>'  >» 
sotoww 1 *22  > jro«d<  0  > 

«ndi  <cyrr*m.«tatij*> 
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